You need to pass the callback and its arguments in an array reference as follows, where the first argument is a ref to the callback, followed by the subroutine arguments themselves:

$widget->Button(-text=>"mybutton", -command=> [ \&mysub, 'a1', 'a2' ])
[download]

There's a nice section on this in Mastering Perl/TK.