#!/usr/bin/perl
use strict;
use Person;
my $foo = Person->new();
$foo->name("Stefan");
$foo->age(20);
my $bar = Person->new();
$bar->name("Barney");
$bar->age(3);
$bar->exclaim();
$foo->exclaim();