$ perl -le" sub f { print scalar @_ }; f(1,2); f( @ARGV ); "
2
0

$ perl -le" sub f { print scalar @_ }; f(1,2); f( @ARGV ); " a b c
2
3