Select Code to Download

#!/usr/bin/perl

...

   print($host, ' ', to_dotted($addr), "\n");
}

renum.pl infile > outfile

  -or-

perl -i.bak renum.pl file