Modifying basic Perl Api