#!/usr/local/bin/perl -w
use strict;

use CGI::Carp qw/fatalsToBrowser /;
use CGI qw/:standard/;

use CGI::Pretty qw/ :html3 /;

my $dom = "friendsofjabu.com";

my $q = CGI->new();
print $q->header,start_html, '<pre>';

print my $output = `whois $dom` . '</pre>';