my ($title, $ndisc, $path) = @r;
print ";; $title [$ndisc]\n";
for (my $i = 0; $i < $ndisc; $i++) { $st1->execute($title, $i, $path); }
my ($title, $ndisc, $path) = @r;
print ";; $title [$ndisc]\n";
for (my $i = 0; $i < $ndisc; $i++) { $st1->execute($title, $i, $path); }