Select Code to Download

use strict;
use warnings;
...
my $main = MainWindow->new ();
my $label = $main->Label(-text => 'Text', -font => 'arial 490')->pack 
+();
MainLoop;