$ perl -Mstrict -wle '
my $sref = sub { return 1234; };
print $sref->();
'
1234