Help for this page
sub new { my ($class, %args) = @_; ... return( $self ); }
sub new { my ($class, %args) = @_; ... # anyother initialization here }