##
call perl -le " $SIG{INT}=q[IGNORE]; $ENV{X}='Y'; $ret = system('cmd'); print qq[system returned $ret ]; "
####
$ exit
system returned 0
Terminate batch job (Y/N)? y
####
$ exit
system returned 0
Terminate batch job (Y/N)? n
finished