perl -Mautodie ...

##</code><code>##

use autodie ();