#!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>";
In reply to printing html content with pre tag all one line by diamondsandperls
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |