Select Code to Download

#!/usr/bin/perl -w

...
    my @line_parts = split(/\s+/, $lines[$i]);
    # do something with the parts here, if desired....
}

#!/usr/bin/perl -w

...
    # do something with the parts here, if desired....
}
close(DF);