sub the_problem {
	my $self = shift;
	$self->{_the_problem} = shift if (@_); # sets _the_problem to the value we've been passed *if* we've been passed a value
	$self->{_the_problem}; # returns the current value of _the_problem
}