my $button = $top->Button ( 
                           -text => "click me",
                           -command => sub {system "myscript.pl $filename"}
                          )->pack();