Select Code to Download

open (FILE, $lfilename) or &dienice;
$/ = undef; # Slurp mode
...
    # and sundry pieces for each record.
}