overload class implement [PERL]