lol perl code

Hahaha.