Below is my whois script bc I feel strongly maybe the changes need to be made directly to the whois. What happens when i grab the content and print to txt and when i save in notepad everything goes to one line.
#!perl
use Net::Whois::Raw qw( whois $OMIT_MSG $CHECK_FAIL $CACHE_DIR $CACHE_
+TIME $USE_CNAMES $TIMEOUT );
use strict;
use warnings;
# HTTP HEADER
print "Content-type: text/html \n\n";
my $ip = $ARGV[0];
my ($dominfo,$whois_server) = whois($ip);
print "whois server: $whois_server", "<br><pre>";
print $dominfo, "</pre>";