I have had the most consistent results from Net::Whois::Raw

Best of all, it's trivial to use.

#!/usr/bin/perl

  use Net::Whois::Raw;

  my $s= whois('beesley.org');

  print "result $s\n";
[download]

update...corrected typo. Thanks VSarkiss