#!/usr/local/bin/perl -w
use strict;
my $file = (@ARGV) ? shift : 'README';

use Tk;

        my $top = MainWindow->new;
        init_check();
        MainLoop;

sub init_check {
        my $cmd = "/usr/bin/tail +0f $file";

        my $open_pid = open (TAIL, "$cmd|") || die "Can't open $cmd: $!";

        select (TAIL); $| = 1;
        select (STDOUT); $| = 1;

        $top->fileevent(\*TAIL, 'readable',
                sub {
                        $_ = <TAIL>;
                        print "debug : $_";
                });
}