package Parent_object;
    
    sub new {
        my $O = bless {}, shift;
        
        $O->{'attribute-1'} = "value 1";
        $O->{'attribute-2'} = "value 2";
        $O->{'attribute-3'} = "value 3";
        [...]
        
        return ($O);
    }