Mega Code Archive

 

Categories / Perl / System Functions

 

To exit a Perl script, use the die function or the exit function

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