Adding use Carp::Always to the script generates error :

Missing required arguments: name at (eval 13) line 30.
        Person::new('Person') called at test2.pl line 6
[download]

poj