...
$tk->button( -text => 'show some args', -command => \&show_me_args )
...

sub show_me_args {
  warn join "\n", "arguments:", @_;
}