mfollett

sub { say 'Hello World!' };

mfollett

my $hello = sub { say 'Hello World!' };

mfollett

my $hello = sub { say 'Hello World!' };
$hello->();

mfollett

my $say = sub {say $_[0]};

$say->('Hello World!');

mfollett

my $outer = sub
{
    my ($subject) = @_;
    
    my $inner = sub
    {
        my ($salutation, $subject) = @_;

        say "$salutation $subject!";
    }

mfollett

my %evocations = (
  say   => sub { say shift; },
  shout => sub { say uc shift; }
);

$evocations{say}->("Hello");
$evocations{shout}->("Hello");

mfollett

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;

mfollett

{
   my $value = 11;
   sub get_value { $value };
}
say get_value->(); # Succeeds in printing "11\n"

mfollett

{
   my $value = 11;
}
say $value;

mfollett

my $fun
{
   my $value = 42;
   $fun = sub {$value};
}
say $fun->(); # prints "42\n"