Select Code to Download

perl myprog.pl fred.txt - barney.txt

my $fname = '-';
...
...
        print "current file name: $fname\n";
        die ".....$!";
    }

current file name: -
.....No such file or directory ...

use strict;
use warnings;
...
line 3
line 2
line 1  #end output from data1.txt