Updated:

I got about 10 error messages at the first try. Something must be wrong with perl today... Anyways, I removed the line that reads 'use strict;', and it actually looked quite cool. That's what happens when you steal badly written code, add the line 'use strict;' and submit it to perlmonks.org without testing if it actually works.