#!/usr/bin/env perl    

# harness.pl

use strict;
use warnings; 

use lib './';

use Leacher 'Person.pm';

my $mp = Leacher->new('^address_');
die unless defined $mp;
print "vars[1]=".$mp->get_var(1)."\n";
$mp->set_var(1,1222);
print "vars[1]=".$mp->get_var(1)."\n";

my $mp2 = Leacher->new();   
die unless defined $mp2;
print "vars[1]=".$mp2->get_var('address_1')."\n";
$mp2->set_var('address_1',666);
print "vars[1]=".$mp2->get_var('address_1')."\n";