PerlでGoogle Sheets APIを使うには、CPANにあるGoogle::API::Clientモジュールを使います。コードを書く前に、以下のステップを踏む必要があります：

1.Google Cloud Platform（GCP）プロジェクトをセットアップし、Sheets APIを有効にします。
1.OAuth 2.0クライアント資格情報ファイルを作成します。
1.CPANまたは他のパッケージマネージャを使用して、必要なPerlモジュールをインストールします。

では、Google Sheets APIに接続し、ワークシートの最初の列をスキャンするPerlスクリプトのアウトラインを示します：
```perl
#!/usr/bin/perl

use strict;
use warnings;
use Google::API::Client;
use JSON::XS;
use Data::Dumper;

# Define the OAuth2 configuration file path and other required variables
my $client_secrets = 'path/to/client_secrets.json';
my $spreadsheet_id = 'your_spreadsheet_id';
my $sheet_name = 'Sheet1';
my $range = "${sheet_name}!A:A";

# Initialize the Google Sheets API client
my $client = Google::API::Client->new;
$client->auth_storage->load_credentials($client_secrets);
$client->auth_storage->get_credentials;

# Instantiate the Sheets API service
my $sheets = $client->build('sheets', 'v4');

# Request data from the Sheets API
my $response = $sheets->spreadsheets->values->get(
    spreadsheetId => $spreadsheet_id,
    range => $range
)->execute;

# Extract and print values from the first column
my $values = $response->{values};
foreach my $row (@$values) {
    print "Value in first column: $row->[0]\n";
}
```

path/to/client_secrets.json'、'your_spreadsheet_id'、'Sheet1'を適切な値に置き換えてください。この例では、必要なパーミッションがすでに与えられており、有効な OAuth 2.0 トークンが利用可能であることを前提としています。認証処理の詳細については Google API Client Library for Perl のドキュメント を参照ください。

CPAN を使って必要な Perl モジュールをインストールすることを忘れないようにしましょう：
```arduino
cpan install Google::API::Client
cpan install JSON::XS
cpan install Data::Dumper
```
To use the Google Sheets API with Perl, you can use the Google::API::Client module available on CPAN. Before diving into the code, you'll need to follow these steps:

1. Set up a Google Cloud Platform (GCP) project and enable the Sheets API.
1. Create the OAuth 2.0 client credentials file.
1. Install the necessary Perl modules using CPAN or another package manager.

Now, here's an outline of a Perl script that connects to the Google Sheets API and scans through the first column of a worksheet:
```perl
#!/usr/bin/perl

use strict;
use warnings;
use Google::API::Client;
use JSON::XS;
use Data::Dumper;

# Define the OAuth2 configuration file path and other required variables
my $client_secrets = 'path/to/client_secrets.json';
my $spreadsheet_id = 'your_spreadsheet_id';
my $sheet_name = 'Sheet1';
my $range = "${sheet_name}!A:A";

# Initialize the Google Sheets API client
my $client = Google::API::Client->new;
$client->auth_storage->load_credentials($client_secrets);
$client->auth_storage->get_credentials;

# Instantiate the Sheets API service
my $sheets = $client->build('sheets', 'v4');

# Request data from the Sheets API
my $response = $sheets->spreadsheets->values->get(
    spreadsheetId => $spreadsheet_id,
    range => $range
)->execute;

# Extract and print values from the first column
my $values = $response->{values};
foreach my $row (@$values) {
    print "Value in first column: $row->[0]\n";
}
```

Replace 'path/to/client_secrets.json', 'your_spreadsheet_id', and 'Sheet1' with the appropriate values. Note that this example assumes you have already granted the necessary permissions and have a valid OAuth 2.0 token available. You may need to refer to the Google API Client Library for Perl documentation for more details on handling authorization.

Remember to install the required Perl modules using CPAN:
```arduino
cpan install Google::API::Client
cpan install JSON::XS
cpan install Data::Dumper
```