sub func{
   return sub { if($joe){somesub($arg1,$arg2);} }
}
$a=&func();

# do stuff..
# call the function
&$a;