Added some random perl from the internet :(