open FH, '>', $filename or die "Could not open '$filename': $!";