open my $FH, '<', $filename or die $!;