sub new {
	my $class = shift;
	my $self  = {
		list => {
			a => 'ls',
			b => 'pwd',
			c => 'date',
		},
	};

	bless $self, $class;
	return $self;
}
		
sub get_list {
	my ($self) = @_;
	return $self->{'list'};
}