Select Code to Download

#!/usr/bin/perl
...
                          )->pack();
...
MainLoop();

my $button = $top->Button ( 
                           -text => "click me",
                           -command => [\&clicked, \$filename]
                          )->pack();