Thanks for suggestion
I have modified the code
use feature ':5.10';
use strict;
use warnings;
print "1.Do you want to enter value for Starting account balance. (y/n
+)?";
$answer= <STDIN>;
chomp $answer;
if ($answer eq "y")
{
print "Please enter SAB= ";
$SAB=<STDIN>;
print "$SAB";
}
print "2.Do you want to enter value date (y/n)?";
$answer= <STDIN>;
chomp $answer;
if ($answer eq "y")
{
print "Please enter date= ";
$Date=<STDIN>;
print "$Date";
}
else{
print "Exit";
}
Now i am getting the output what i am expecting |