Select Code to Download

open (FILE, "file") || die "file could not be opened";

$file = "some_file.txt"; 
open(FILE,"$file") or &Error($!);

sub Error {
        $error = shift or $error = "unknown";
...
        print "Error:  $error";
        &End;
}

close FILE or die "Could not close $file";