Select Code to Download

my $q   = 'INSERT INTO some_table (data) VALUES (?)';
my $sth = $dbh->prepare($q);
...
        # More code here...
    }
}

while ( my $data = ... ) {
    $sth->execute( $data )
        or next;
}