use Carp qw(confess cluck);
$SIG{__WARN__} = 'cluck';
$SIG{__DIE__} = 'confess';

##</code><code>##

------------
:Wq
Not an editor command: Wq