Select Code to Download

$mw->Button(-text => "print", -command=> sub {print @a })->pack;

$mw->Button(-text => "print", -command => \&print_it);

sub print_it() {
    print @a;
}