my $FH;
    open $FH, "<", $filename     
        or croak "Cannot open file $filename $!\n";