c:\@Work\Perl>perl -wMstrict -le
"package Foo;
 sub foo ($;$) { print qq{(@_)}; }
 ;;
 package main;
 Foo->foo;
 Foo->foo();
 Foo->foo(1, 2, 3, 4, 5, 6);
"
(Foo)
(Foo)
(Foo 1 2 3 4 5 6)