package Woodchuck;
my $wood = Woodchuck->chuck();
if($wood){ print $wood . " and " . chuck(); }

sub chuck{
 return "lots";
}