Functional Programming Blog, week 1 example 7

fpblog-week1f.pl

my $get_input = sub { my $ret = <>; chomp $ret; return $ret;};
my $request = sub { print "Please provide your age: "; $get_input->()};
my @prompts = (
   $request,
   $request,
   sub { print "PLEASE PROVIDE YOUR AGE: "; $get_input->() },
   sub { say "Fine, whatever, forget it."; return; }
);

my $age;
for my $req (@prompts) { last if $age = $req->() }
say "Your age is $age" if $age;