my $out = './data/IDs_created.txt';
open (OUT, ">>$out");
print "Enter ID: \n";
	while (<>) {
	print OUT "$_";
}
close OUT;