open my $fh, "<", "filename" or die $!;
my $headerline = <$fh>;
unless(defined $headerline) {
   die "ERROR: Couldn't read header line: Bad file format?";
}
while(my $line = <$fh>) {
    process($line);
}
close $fh or die $!;