#!/usr/bin/perl

  use Net::Whois::Raw;

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

  print "result $s\n";