open( my $FH, "<$filename" ) or die $!;