Perl mojo