>perl -E 'say sqrt(3*3+4*4)'
5
>