# special.pl

my $success = 1;

...
if (...) {
   $success = 0;
}
...

exit $success ? 0 : 1;