Select Code to Download

print "@firstLine1\n";
print "@firstLine2\n";

open my $fileText, '<', $file or die("Error opening \"$ARGV[0]\": $! "
+);

...
            # doesn't get here on the last value.
        }
}