open( my $fh, ">", $output ) or die_with_error();