Marilyn

Jan. 26, 2010

Type: discussion

use Tk;
use LWP::Simple;
my $main=MainWindow->new();
$main->minsize(qw(525 450));
$main->title("Warhol");
$main->geometry('+10+40');
my $body =$main->Frame(-background=>'red',)->pack(-side=>'top',-fill=>'y');
my $message = $body->Label(-background=>'yellow')->pack(-side=>'top');
$code = get('http://munro.humber.ca/~dymond/perl/marilyn.txt');
$message->configure(-text=>$code);
MainLoop();