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