package Animal;

use strict;
use warnings;

sub new {
    my ($class) = @_;
    my $proto = {need_oxygen => 1};
    return bless($proto, $class);
} 

1;