#!/perl/bin/perl

$fname = "Designations.txt";
open (WXYZ, $fname) or die "Couldn't open file Designations.txt, $!";

while (<WXYZ>)
{
print "$_";
}

print "Enter First Name or Last Name: \n \n";
$name = <STDIN>;
print "Entered name is : $name \n";
--------------------------------------------