This piece of code does the job for you:
#!/usr/bin/perl -w
use strict;
use Tk;
#First create a new mainwindow
my $mainwindow = new Tk::MainWindow();
#Then create a textwidget (called 'Scrolled', with subtype 'Text")
my $text = $mainwindow->Scrolled("Text", -scrollbars => 'se')->pack(-e
+xpand => 1, -fill => 'both');
# Open the file
open(F, "<$ARGV[0]") || die "can't open $ARGV[0]: $!\n\n";
while(<F>)
{
# insert each line to the $text widget
$text->insert('end', $_);
}
# close the file
close(F);
# create a closebutton
my $button = $mainwindow->Button(-text => "close", -command => sub {$m
+ainwindow->destroy()})->pack();
# start the main loop!
MainLoop;
Jouke Visser, Perl 'Adept'
Using Perl to help the disabled: pVoice and pStory