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

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