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

##</code><code>##

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