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

use strict;
use warnings;
use Test::More 'no_plan';

ok 1, 'this works';
$SIG{__DIE__} = sub { die @_ };
ok no_such_sub(), '... no such sub';

>echo %ERRORLEVEL%
0

>perl script.pl
ok 1 - this works
Undefined subroutine &main::no_such_sub called at script.pl line 9.
1..1

>echo %ERRORLEVEL%
0