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); }