Select Code to Download

while (my $train = <trained>) {
 while (my $predict = <predict>) {
...
 }
 seek predict, 0, 0; // need to return to the start of the predict fil
+e!!!
}