$agent = PerlBeginner; 
or $agent = PerlBeginnerPerl;