$ perl -Tw check_exit.plx; echo $?