open my $FH, '>', $output_filename or die;