#!/perl/bin/perl
use strict;
use warnings;

my $fname = 'Designations.txt';
open (my $fh, '<', $fname) or die "Couldn't open file $fname, $!";
while (<$fh>) {
    print;
}
print "Enter First Name or Last Name: \n \n";
my $name = <STDIN>;
print "Entered name is : $name \n";