A perl script to send iMessages in an infinite loop