Select Code to Download

package Person;
require 5.004;
...
    return 1;
}
1;

#!/usr/bin/perl
use Person qw/name age exclaim/;
...
$foo->Person::name("Stefan");
$foo->Person::name(20);
$foo->Person::exclaim();