sub new {
    my $cname = shift; 
    my $class = ref($cname) || $cname;

##</code><code>##

sub new {
    my $class = shift ;
    .....