gistfile1.txt

use warnings;
use strict;
use Encode qw/from_to _utf8_off/;
use Net::Google::Spreadsheets;

my $user='id';
my $pass='pass';

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

my $assets_sheet = $service->spreadsheet(
        {
                key => 'キー'
        }
);

my $worksheet = $assets_sheet->worksheet(
        {
                title => "シート名",
        }
);

my @row = $worksheet->rows;