spreadsheet_sample.pl

#!/usr/bin/perl
use strict;
use warnings;
use Net::Google::Spreadsheets;

print "google username?: ";
my $u = <STDIN>;
chomp $u;
print "google password?: ";
my $p = <STDIN>;
chomp $p;

my $service = Net::Google::Spreadsheets->new(
    username => $u,
    password => $p,
);

print "spreadsheet title?: ";
my $title = <STDIN>;
chomp $title;

my $ss = $service->spreadsheet({title => $title});
warn $ss->id;

my $sheet1 = $ss->worksheet({title => 'Sheet1'});
warn $sheet1->id;