Select Code to Download

        foreach my $line (@mapper) {
            my ($oldaddr, $newaddr,) = split(/\t/, $line, 2);
        }

            print "<MIKE Changing OLD IP ADDRESS: $oldaddr\n";
            print "<MIKE To       NEW IP ADDRESS: $newaddr\n";