my $dbh = DBI->connect(          # connect to your database, create if
 
   "dbi:SQLite:dbname=$dbfile", # DSN: dbi, driver, database file
    "",                          # no user
    "",                          # no password
    { RaiseError => 1 },         # complain if something goes wrong
) or die $DBI::errstr;

my $search =  $dbh->prepare('SELECT * FROM addresses ');
my $delete = $dbh->prepare('DELETE FROM addresses');
my $rc = $search->execute or die $search->errstr;

while ( my @row = $search->fetchrow_array() ) {
  
print @row[0] . "\n";

};

my $rc2 = $delete->execute or die $sth->errstr;

$dbh->disconnect;