in reply to Dynamic Code?
The secret is the string form of eval:
my $a = 'somesub($arg1, $arg2) if $joe'; eval $a; [download]