First script for 'Perl vs 2048' talk.