[Perl] GUI-HelloWorld

Descrizione
Semplice esempio di GUI.

Codice
use Tk;
my $mw = new MainWindow;
my $label = $mw -> Label(-text=>"Hello World") -> pack();
my $button = $mw -> Button(-text => "Esci",
-command => sub { exit })
-> pack();
MainLoop;