[netwind]

уйма, самый простой
print `whois vrn.ru`

или, если тебе нужна более тонкая обработка :
open(PROG, "whois vrn.ru|") or die "Can't run program: $!\n";
while(<PROG>) {
$output .= $_;
print "$output<br>";
}
close(PROG);

Perl Cookbook, глава 16.