Select Code to Download

my $f = sub {my $x = shift; sub {$x ** 2}->()};

my $f = sub { my $x = shift; $x**2 }

my $f = lambda $x => sub { $x**2 }