open my $output_h, '>', $tempname
    or die "open: $tempname: $!\n";