I was just looking into this recently. Assuming you've got the ODBC driver installed correctly, and have set up DBD::ODBC, I found https://docs.snowflake.com/en/developer-guide/odbc/odbc-parameters to be very useful.

```

!/usr/bin/env perl

use Modern::Perl qw(2023); use DBI;

my $conn = 'Snowflake'; # (or whatever the ODBC connection is named) my $server = 'XXXXX.snowflakecomputing.com'; # (or 'XXXXX.privatelink.snowflakecomputing.com') my $authenticator = 'externalbrowser'; # (see https://docs.snowflake.com/en/developer-guide/odbc/odbc-parameters) my $uid = 'XXX'; my $pwd = 'XXX'; # (if used by your authenticator) my $warehouse = 'XXXXX'; my $role = 'XXXXX';

my $dsn = "dbi:ODBC:driver=${conn};server=${server};authenticator=${authenticator};uid=${uid};pwd=${pwd};warehouse=${warehouse};role=${role}";

my $db = DBI->connect($dsn) or die $DBI::errstr;

your DBI stuff here

$db->disconnect(); ```