script.perl file1 file2 file3

##</code><code>##


while (<>) {
 chomp;

 # ... verify the line ...

 die unless ($verified);

}