Select Code to Download

for my $i (0 .. 5006) {
    ...
}

#!/bin/perl
use strict;
...
open my $outFile, '>', $fName  or die "Can't create '$fName': $!\n";
print $outFile $thing;
close $outFile;