use strict;
require DoStuff;
my $pop;
my $hl;

my $dogs = DoStuff->new();
#print 'Population to set?';
#$pop = <STDIN>;
$dogs->pop(5);
print $dogs->pop;

##</code><code>##

package DoStuff;
use strict;
##########################

sub new{
	my $self = {};
	$self->{pop} = undef;
	#$self->{health} = undef;
	bless($self);
	return $self;
}

sub pop{
	my $self = shift;
	my $self->pop = shift;
return $self->pop;
}