use IO::Socket::SSL;

my $client = IO::Socket::SSL->new('gcm.googleapis.com:5236')
    or die "error=$!, ssl_error=$SSL_ERROR";

print $client '<stream:stream to="gcm.googleapis.com" version="1.0"
#xmlns="jabber:client" xmlns:stream="http://etherx.jabber.org/streams"/>';
print <$client>;
print $client '<auth mechanism="PLAIN"
xmlns="urn:ietf:params:xml:ns:xmpp-sasl">MTI2MjAwMzQ3OTMzQHByb2plY3RzLmdjbS5hb
mFTeUIzcmNaTmtmbnFLZEZiOW1oekNCaVlwT1JEQTJKV1d0dw==</auth>';

if(!<$client>){
    print "Auth error\n";
} else {
    print <$client>;
}