#! /usr/bin/perl -w

use Max;

$a = Max->new();

print "Enter a doctor's age, or ^D to quit\n";

while($line = <STDIN>) {
    $a->newValue($line);
}

print "The max age is :";
print $a->getMax();
print " and that's old!\n";