open my $fh, '>', $filename # safer and clearer
    or die "Can't write to '$filename': $!\n";