open FH, "<$filename" or die "can't open $filename: $!";

##</code><code>##

while (my $line = <>){