Mega Code Archive

 

Categories / Perl / GUI

 

Your first PerlTk program

#!/usr/bin/perl use Tk; my $mw = MainWindow->new; $mw->title('Hello World'); $mw->Button(-text => 'Done', -command => sub { exit })->pack; MainLoop;