A Perl/Tk script consists of three main procedures:
#!/usr/bin/perl use Tk; # Create a main window $main = MainWindow->new(); # Create a widget $label = $main->Label(text => 'Hello World!'); # and arrange it $label->pack(); # Wait in a loop MainLoop(); |