#!/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;
}