Select Code to Download

eval {
    open(FH, $file)         or die "NO_OPEN";
...
    close(FH)               or die "NO_CLOSE";
}
if ($@) { ... }

open(FH, $file)            or &error("NO_OPEN",  $file, $!);
my $text = join('', <FH>)  or &error("NO_READ",  $file, $!);
close(FH)                  or &error("NO_CLOSE", $file, $!);