#=======================================================
package main;
my $ob = dupme->new(0);

package dupme;

sub new
{
        my $s = {};
        bless $s;  
        print "I am '$_[1]'!\n";
        my $ob = $s->new($_[1]+1);
        return $s;
}# end sub new 
#=======================================================