#!/usr/bin/perl
#
# eg3: Programmer test program
#

use strict;
use warnings;
use Programmer;

my $dunc = Programmer->new( NAME   => "Duncan",
		            AGE    => 45,
		            SEX    => "m"
			  );
print "$dunc\n";
$dunc->age( 20 );
$dunc->name( "Young dunc" );
print "$dunc\n";
