Select Code to Download

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

...
print $q->header,start_html, '<pre>';

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