How do I use the “three line version of the RSA algorithm” written in Perl?

Question

The book "An Introduction to Mathematical Cryptography" by J. Hoffstein et al. talks about a three-line implementation of the RSA algorithm in Perl, which people used