#!/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;
[download]