package Test::Class;

use strict;
use warnings;
 
sub new {
    my ($className, $config) = @_;

    my $self = {};
    bless $self, $className;

    $self->{config} = \%{$config};

    return $self;
}

sub doSomething {
    my ($self, $what) = @_;

    print $self->{config}->{$what} . "\n";;
}

1;

##</code><code>##

#!/usr/bin/env perl 

use strict;
use warnings;

use lib '.';
use Test::Class;

my $t = Test::Class->new( { name => 'bob', } );
$t->doSomething('name');