$ perl -E 'my $x = sub { say "@_" }; $x->("fred")'
fred