package Dog;

our $species = 'mammal';

sub __init__ ($class, $name, $age)
{
    my $self = {};
    $self->{name} = $name;
    $self->{age} = $age;
    bless $self, $class;
}

package main;

my $philo = Dog->__init__('Philo', 5);