>type script.pl
#!/usr/bin/perl

$SIG{__DIE__} = sub { die @_ };
no_such_sub();

>echo %ERRORLEVEL%
0

>perl script.pl
Undefined subroutine &main::no_such_sub called at script.pl line 4.

>echo %ERRORLEVEL%
255