use DBD::SQLite;
use Data::Dumper;

use strict;
use warnings;

my $dbh = DBI->connect("dbi:SQLite:uri=file:osopenusrn_202203.gpkg?mode=rwc");

my $tab = $dbh->prepare("SELECT * FROM openUSRN");
$tab->execute;
my $n = $tab->fetchrow_hashref;

my $geo = $n->{'geometry'};

my @test = unpack "nCCVd6C100", $geo;

foreach my $t(@test) {
    print "$t\n";
}