Select Code to Download

-command=>[\&raiseit,$win]) 
# passes $win as first arg 
# instead of widget or event
 # not a 100% foolproof rule

sub somesub{
     print "@_\n";
....
....
}