package FOO;

sub new {
    bless {
        key1 => 1,
        key2 => 2
        };
}

package main;

my $foo = new FOO();

print "Look, first key = '$foo->{key1}'!\n";

##</code><code>##

Look, first key = '1'!

##</code><code>##

# Under Construction