sub t {
    my $sub=shift;
    $sub->();
}
sub u {
    my $sub=shift;
    &$sub;
}
    
t(sub{print">@_<"},1,2,3,4,5);
u(sub{print">@_<"},1,2,3,4,5);
_END__
><
>1 2 3 4 5<

##</code><code>##

do { sub { print 'foo' } }->();
( sub { print 'bar' } )->();