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