Select Code to Download

my $do = 1;
for (0...9) {
    stuff_to_do_always();
...
    }
    $do = 0;
}

use DBI;
my $dbh = DBI->connect("DBI:mysql:database=chess", "usr", "pwd");  # o
+r whatever

...
    $sth = $dbh->prepare("INSERT INTO eco_class (eco_id,eco,opening,va
+riation,moves) VALUES (NULL,?,?,?,?)") or die $dbh->errstr;
    $sth->execute(@line) or die $dbh->errstr;
}