#!/usr/bin/perl -w
 
use strict;
use warnings;
 
# access Google Voice (unofficial) API
use WebService::Google::Voice::SendSMS;
 
die( "googleSMS.pl <phone #> <msg> <username> <password>\n" ) if @ARGV != 4;
  
my $sms = WebService::Google::Voice::SendSMS->new( $ARGV[2], $ARGV[3] );
 
$sms->send_sms( $ARGV[0], $ARGV[1] ) ?
   exit 0 : exit 1;

