$ perl -wl

$a = sub { 'test' };
print $a->();
^D
test