Select Code to Download

    my $sql = <<EOSQL;
    
INSERT INTO files (filename, content)
...
        or die "Insert bind_param failed: $DBI::errstr";
    $query->execute
        or die "Insert execute failed: $DBI::errstr";

    my $oracle = DBI->connect(  @dbi_path,
                    {
                        PrintError => 0,
...
                    }
                )
        or die "Database connect to $db_name failed:" . $DBI::errstr;