my $a = 'somesub($arg1, $arg2) if $joe'; eval $a;