#!perl -w
use strict;

my $a = sub { sub { "thingy" } };

print $a->()();