Select Code to Download

my $x = sub { print shift };

$x->('Hello world!');

#! /usr/bin/perl
use warnings;
...
}

print two_subs()->{first}->('A'), ' ', two_subs()->{second}->('B'), "\
+n";