A sample Perl script to send a message using Google Cloud Messaging