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