eval 's=Shell'; eval "echo 'Just another $s Hacker\
'; exit" && 1 for $s = Perl; sub echo { print @_ };