use warnings;
use strict;
use diagnostics;

############### OPEN FILES ##################

my $database = "C:/Database.txt";
open (INPUT, ">>" , $database) || die "Can't open $database: $!";

############## PROCESS DATA #################


my $part_number_range = 10000000;
my $part_number = int(rand($part_number_range));
my $new_part_number = sprintf("%07d", $part_number);


print INPUT "$new_part_number\n";
}