use feature ':5.10';

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 the Date. (y/n)?";
	$answer=<STDIN>;
}	
elsif ($answer eq "y")
{
    print "Enter date = ";
	$Date=<STDIN>;
	print "$Date";	
}
else {
	print "Exit program";
	}