sub new {
	my $class = shift;
	my $self = {};
	bless($self, $class);
	load($_[0], $self);
	return $self;
}

sub load {
	my ($args, $self) = shift;
	if ($args) {
		for (keys %{$args}) {
			print "$_\n";
		}
	}
}