my $fname = '-';
...
...
    my $INFILE;

    if(!open ($INFILE, "<", $fname)) {
        print "current file name: $fname\n";
        die ".....$!";
    }