$mw -> bind('<Button-1>' => sub {print "actioned"}); 

##</code><code>##

$mw -> bind($shared_scalar => sub {print "actioned"});