Select Code to Download

    open my $fh, "<", $file or warn "Couldn't open '$file': $!" and ex
+it;

my $file = "does-not-exist";

...
    };
    print STDERR "ERROR: $@" if $@;
}

while (<STDIN>) {
    eval {
...
    };
    print STDERR "ERROR: $@" if $@;
}

ERROR: Couldn't open 'does-not-exist': No such file or directory at ./
+680735.pl line 10, <STDIN> line 1.

ERROR: Couldn't open 'does-not-exist': No such file or directory at ./
+680735.pl line 10, <STDIN> line 2.
...