#!/usr/bin/perl
use Tk;
use strict;

my $mw = MainWindow->new;

my $buf;
open (FH,"< $0");
read( FH, $buf, -s FH );
close FH;

my $label = $mw->Label(
            -textvariable => \$buf, 
	    -background => 'black',
	    -fg=>'yellow',
	    )->pack;

MainLoop;