Select Code to Download

print "What is the Part Number that you would like to look up?\n";
my $PartNumber = <STDIN>;
...
   else {
       print "ok, well have a nice day.\n";
   }