how about something like this ...

...
sub clicked {
    system ( 'myscript.pl' );
}

my $top = MainWindow->new();
my $button = $top->Button ( 
                           -text => "click me",
                           -command => \&clicked
                          )->pack();
...
MainLoop();
[download]