refactor Perl.Call