$ perl -MIO::Socket::INET -e 'my $s=IO::Socket::INET->new("whois.denic.de:43"); print $s "-C ISO-8859-1 -T dn,ace foertsch.de\r\n"; print while(<$s>)'
% Copyright (c) 2010 by DENIC
% Version: 2.0
...