I don't think anyone bothered to simply answer your question (not a criticism of any of the fine replies, just a justification for this one):

sub another_constructor {
    my $class= shift;
    my $self= $class->new();
    ....
}
[download]

        - tye (but my friends call me "Tye")