programming-examples/perl/SystemFunction/To exit a Perl script, use the die function or the exit function.pl

open(FH, "filename") or die "Couldn't open filename: $!\n";
if ($input !~ /^\d+$/){
       print STDERR "Bad input. Integer required.\n";
       exit(1);
}