Answer:
#!/usr/bin/perl
use warnings;
use strict;
my $file = 'File1';
my $name;
my %h = ( ansy => 'Yes', ansn => 'No' );
open(Handle, '>>$file') or die $!;
while(<Handle>){
 print $_;
}
print "Do you want to enter your name ? \n";
my $answer = <STDIN>;
chomp $answer;
print "You have entered input as '$answer' \n" ;
my %h = ( ansy => 'Yes', ansn => 'No' );
if( $answer eq $h{ansy} ) {
 # if condition is true then print the following
 printf "Please enter your name ? \n";
 my $answer1 = <STDIN>;
 chomp $answer1;
 printf "Your have entered '$answer1' and it will be added to list \n";
 print Handle '$answer1';
} elsif( $answer eq $h{ansn} ) {
 # if condition is true then print the following
 printf "You have entered No and we will exit";
 exit();
} else {
 # if none of the above conditions is true
 printf "please enter either Yes or No \n";
}
close(Handle);
Explanation:
Above Code will work as per requirements. File1 is the path of your file.
