gtalk是使用xmpp协议的，因此可以很方便地利用现有的库来登陆gtalk发送消息。下面是参考了网上资料写的一个perl版本的

#!/usr/bin/perluse strict;
use warnings;
use Net::XMPP;
use utf8;
binmode(STDIN, ‘:encoding(utf8)’);
binmode(STDOUT, ‘:encoding(utf8)’);
binmode(STDERR, ‘:encoding(utf8)’);
my $username = "USERNAME";
#用户名，不带@的my $password = "PASSWORD";
#纯文本密码my $re
source = "perl_script";

#authcenticate

my @login =$connect->AuthSend(username => $username,password => $password,re
source => $re
source );
if ( $login[0] ne "ok" ){print "login failed: $login[0] -$login[1]\n";
exit(2);