perl -V:sh

##</code><code>##

 
sub exec { system 1, @_; exit 0; }