A perl bot with slow loris built in