Perlish script to practice stuff from prog translation