#!/usr/local/bin/perl -w
# test-that-kludged-class.pl -- Testet unsere verbesserte Klasse.

use AKludgedClass;

my $mary = AKludgedClass->new('mary', '555-1234');
my $john = AKludgedClass->new('john', '555-9999');

$mary->setName('irma');       # Name aendern.
print "Phone number of john: ", $john->getPhone(), "\n";
print "Phone number of irma: ", $mary->getPhone(), "\n";