PerlScript in Action