#!perl
#

package SMiTZ;

BEGIN {
	until ($age > 19) {
		$self->freeload && $self->annoy_parents;
	}
}


sub new {
	my ($class, $self) = @_;
	unless (&work($self) || &sleep($self)) {
		$self->smoke;
		$self->cancer_probablity += rand(0.001);
	}
	bless ($self, undef);
}


END {
	$self->regret($self);
	$die;
}