Hello,
I think you can send arguments this way:

 $widget->Button(-text=>"mybutton", -command=>[\$mysub,"a1","a2"];

You can find the docs here.

rlb3