Get Perl Power greater
Update