my $cmd = `&test($param1, $param2)` ;#Subroutine to be called by the Tk::ExecuteCommand button click

##</code><code>##

my $cmd= sub {
    test($param1, $param2);
};