As japhy mentions, the $ARGV holds the current filename when reading from either <> or <ARGV>. However, note that the line number in $. (and the one reported from the die function) won't be reset between files unless you explicitly check for the end of files and close the filehandle (using the eof function without parens --- see perlfunc:eof). The basic framework is:

#!/usr/bin/perl -w
use strict;
while(<>){
    chomp;
    my $verified = 0;
    # do verification stuff
    die "problem in file $ARGV at line $." unless $verified;
} continue {
    close ARGV if eof;
}
[download]

Note, you can put the eof test at the bottom of the loop rather than in the continue block, but if it is in the continue block it'll still be checked even if you use next inside your loop.

You cannot retrieve a filename from a filehandle (see Is it possible to get a filename from a filehandle? )

You death needs to be more meaningful.

In other words, don't just die;

You should be doing something like (no real reason you shouldn't):

for $file(@ARGV)
{
    open(FHF,$file) or die("Can't open $file $!");
    while(<FHF>)
    {
        die "crap $file $!" unless ($verified);
    }
    close(FHF);
}
[download]

update:
japhy got his answer from perlop (too much magic for me), and apparently (from perlopI/O Operators):

The null filehandle <> is special: it can be used to emulate the behav
+ior of sed and awk. Input from <> comes either from standard input, o
+r from each file listed on the command line. Here's how it works: the
+ first time <> is evaluated, the @ARGV array is checked, and if it is
+ empty, $ARGV[0] is set to ``-'', which when opened gives you standar
+d input. The @ARGV array is then processed as a list of filenames. Th
+e loop


    while (<>) {

        ...                     # code for each line

    }
is equivalent to the following Perl-like pseudo code:


    unshift(@ARGV, '-') unless @ARGV;

    while ($ARGV = shift) {

        open(ARGV, $ARGV);

        while (<ARGV>) {

            ...         # code for each line

        }

    }
[download]

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"