Select Code to Download

 #!/usr/bin/perl -w
use strict;
...
#
close SERVERS;
exit;

#!/usr/bin/perl -w
...
rename $tempFile, $megalithFile
    or die "Can't rename '$tempFile' to '$megalithFile': $!\n";
exit 0;