print "What is the last name of the employee? ";
$LName = <STDIN>;
chomp($LName);
@EmpID = ("$LName");
print "\nWhat is the first name of the employee? ";
$FName = <STDIN>;
@EmpID = ("$LName", "$FName");
select(INFILE);
printf "\n@EmpID";print "Name added, thank you!"; #I DONT WANT THIS PRINT COMMAND TO BE IN THE FILE... I MERELY WANT IT TO SHOW ON THE SCREEN..

$NameDB = '>>C:/Perl for Dummies/AuthorCode/edata3.txt';
# Open the database file but quit if it doesn't exist
open(INFILE, $NameDB) or die "The database $NameDB could " .
"not be found.\n"; print "\n\nWould you like to add a Name to the Employee ID List? Yes (Y) or No (N) ";
$AddName = <STDIN>;
chomp($AddName);
$AddName =~ tr/A-Z/a-z/;
if($AddName eq 'n') {print "Program Aborted.";exit;}
unless($AddName eq 'y') {
print "You must enter Y or N, not $AddName";
next;
}
print "What is the LAST name of the employee? ";
$LName = <STDIN>;
chomp($LName);
@EmpID = ("$LName");
print "\nWhat is the FIRST name of the employee? ";
$FName = <STDIN>;
@EmpID = ("$LName", "$FName");
select(INFILE);
printf "\n@EmpID";
print STDOUT "\nName added, thank you\n";