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;
}