Please helpuse 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"; }
In reply to Don't get the output as expect. by mandalmanas5519
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |