package Parent;

{
	my ($name, $pass);

	sub new {
		my $class = shift;
		my $self = {};
		if (@_) {
			($name, $pass) = @_;
		}
		@$self{'name', 'pass'} = ($name, $pass);
		bless($self, $class);
	}
}