#!/usr/bin/perl
use Person;

my $person = Person->new( name => 'Bob', age => 32 );
print "Person's name is ", $person->name();
print " and age is ", $person->age(), "\n";