Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
my $mw = MainWindow->new;
$mw->Label( -text  => $mw->screenheight . " x ". $mw->screenwidth )->p
+ack;
MainLoop;