#!/usr/bin/perl
#
# eg2 - v2: Person test program
#
use strict;
use warnings;
use Person;
my $dunc = Person->new( NAME => "Duncan", AGE  => 45, SEX  => "m" );
print "$dunc\n";
$dunc->age( 20 ); $dunc->name( "Young dunc" );
print "$dunc\n";
