use feature ':5.10'; use strict; use warnings; print "1.Do you want to enter value for Starting account balance. (y/n)?"; $answer= ; chomp $answer; if ($answer eq "y") { print "Please enter SAB= "; $SAB=; print "$SAB"; } print "2.Do you want to enter value date (y/n)?"; $answer= ; chomp $answer; if ($answer eq "y") { print "Please enter date= "; $Date=; print "$Date"; } else{ print "Exit"; }