Select Code to Download

        while ( my $line = < GOODFILE> ) {

        while ( my $line = < GOODFILE> ) {
            chomp $line;
            print "GOODFILE line:  '$line'\n";