>perl -MData::Dumper -E 'my $double=sub { return 2*shift }; say Dumper($double)' $VAR1 = sub { "DUMMY" };