Select Code to Download

open(DAT, $fileName) || die "Could not open $fileName - $!\n";

open(DAT, $fileName) || die "Could not open $fileName - $!\n";
while (<DAT>) {
   print $_, "\n";
}
close(DAT);