Wicked cool perl script