my $code = \&{shift @_};

##</code><code>##

my $code = shift;