use strict;
use warnings;

use Tk;



my $mw = MainWindow->new();
my $st = $mw->Scrolled("Text",-scrollbars => "eo")->pack();
$st->repeat(3000,\&list);
MainLoop;

sub list {
my $fh;
open ($fh, "<D:\\perl_script\\sqlnet.log") or die "error!!$!\n";
while (<$fh>) {
	$st->insert("end", $_);
}
close ($fh);
}