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