Select Code to Download

use strict;
use warnings;
...

print_power_of_2(5);
print_power_of_2(6);

sub print_power_of_2 {
    my $x = shift;
...

    my $power_of_2 = sub { return $x ** 2; };
}