knoppix@Microknoppix:~$ perl -Mstrict -wE '
> sub meth { say @_ ? qq{Got params: @_} : q{No params} }
> 
> my $refToMeth = \ &meth;
> $refToMeth->();
> say q{-} x 20;
> $refToMeth->( qw{ a b c } );'
No params
--------------------
Got params: a b c
knoppix@Microknoppix:~$

##</code><code>##

knoppix@Microknoppix:~$ perl -Mstrict -wE '
> my $refToMeth = sub { say @_ ? qq{Got params: @_} : q{No params} };
> 
> $refToMeth->();
> say q{-} x 20;
> $refToMeth->( qw{ a b c } );'
No params
--------------------
Got params: a b c
knoppix@Microknoppix:~$