#!/usr/local/bin/perl -w
        use Tk;
        $mw = MainWindow->new( );
        $f = $mw->Frame->pack(-side => 'bottom', -fill => 'x');
        $f->Button(-text=>"Ok" ,-command => sub { exit; } )->
                pack(-side => 'top');
        $t = $mw->Scrolled("Text", -foreground => "black", -background => "white",
                -width => "50", -height => "50", -scrollbars=>'e' )
                ->pack (-side,'bottom', -fill => 'both', -expand => 1);
        open (FH, "./test") || die "Die Datei kann nicht geoeffnet werden!";
        $t->delete("1.0", "end");
        while (<FH>)
                {
                $t->insert('end',$_);
                }
        close (FH);
MainLoop;