Some random perl crap