package Snafu;
use Carp 'cluck';
sub new {
   warn join ',',@_;
}
1;
Snafu::new("Test");
Snafu->new("Test");

##</code><code>##

package Snafu;
use Carp 'cluck';
sub new {
    cluck join ',',@_;
}
sub _new { goto &new }
1;
Snafu::new("Test");
Snafu->new("Test");
Snafu->_new("test");