print "This program sends a query to the First Article Inspection DataBase
folder using the Part Number and Revision given by the user.


NOTE - the user must have already logged in via the passsword entry
screen, which sets the permission.


The database query will be read from standard input.\n\n";






#This is where the user will enter the Part Number and Revision Level

print "What is the Part Number that you would like to look up?\n";
  my $PartNumber = <STDIN>;
   if ($PartNumber eq "\n") {
  print "There was no input";
  
  }
  else {
print "What is the Revision level for $PartNumber";
  my $Revision = <STDIN>;
  redo
  }