Quote

kabel@linux:~> perl
package A;
sub new { local $" = ", "; print "@_\n"; }
package main;
A::new ();
A::->new ();

A
kabel@linux:~>