package SimpleClass;

sub new {
	my $self = {};
	$self->{W1} = "World";
	$self->{W2} = "Hello";
	$self->{SP} = " ";
	$self->{NL} = "\n";
	bless $self;
	return $self;
}
 
sub message {
 	my $self = shift;
	my $arg = shift;
	print $self->{$arg};
	return;
}
 
sub printMessage {
	print "Hello World!\n";
}
 
return 1;