# Google Voice library for Perl - No parsing required - all data available in perl objects - Only two pre-requisites: - Mojolicious - IO::Socket::SSL ## Install curl -L cpanmin.us | perl - Google::Voice https://metacpan.org/module/Google::Voice ## Example use Google::Voice; my $g = Google::Voice->new->login('username', 'password'); # Send sms $g->send_sms(5555555555 => 'Hello friend!'); # Error code from google on fail print $@ if ! $g->send_sms('invalid phone' => 'text message'); # connect call & cancel it my $call = $g->call( '+15555555555' => '+14444444444' ); $call->cancel; # sms conversation foreach my $sms ( $g->sms ) { print $sms->name; print $_->time , ':', $_->text, "\n" foreach $sms->messages; $sms->delete; } # loop through voicemail messages foreach my $vm ( $g->voicemail ) { # Name, number, and transcribed text print $vm->name . "\n"; print $vm->meta->{phoneNumber} . "\n"; print $vm->text . "\n"; # Download mp3 $vm->download->move_to( $vm->id . '.mp3' ); # Delete $vm->delete; }