Select Code to Download

use warnings;
use strict;
...
open (my $output, ">>" , $database) || die "Can't open $database: $!";
print $output "$new_part_number\n";
close $output;