diff -uNr Net-Whois-Raw-1.52.orig/lib/Net/Whois/Raw/Common.pm Net-Whois-Raw-1.52/lib/Net/Whois/Raw/Common.pm
--- Net-Whois-Raw-1.52.orig/lib/Net/Whois/Raw/Common.pm	2008-03-27 00:39:15.000000000 +0900
+++ Net-Whois-Raw-1.52/lib/Net/Whois/Raw/Common.pm	2008-06-08 23:31:28.000000000 +0900
@@ -254,6 +254,8 @@
     } elsif ($tld eq 'vn') {
 	$url = "http://www.tenmien.vn/jsp/jsp/tracuudomainchitiet.jsp?type=$name.$tld";
 	$form{referer} = 'http://www.tenmien.vn/jsp/jsp/tracuudomain1.jsp';
+    } elsif ($tld eq 'ac') {
+        $url = "http://nic.ac/cgi-bin/whois?query=$name.$tld";
     }
         
     return $url, %form;
@@ -393,6 +395,19 @@
 	} else {
 	    return 0;
 	};
+    } elsif ($tld eq 'ac') {
+    if ($resp =~ /<!--- Start \/ Domain Info --->(.+?)<!--- End \/ Domain Info --->/si) {
+        $resp = $1;
+        $resp =~ s|</?table.*?>||ig;
+        $resp =~ s|</?b>||ig;
+        $resp =~ s|</?font.*?>||ig;
+        $resp =~ s|<tr.*?>\s*<td.*?>\s*(.*?)\s*</td>\s*<td.*?>\s*(.*?)\s*</td>\s*</tr>|$1 $2\n|isg;
+        $resp =~ s|</?tr>||ig;
+        $resp =~ s|</?td>||ig;
+        $resp =~ s|^\s*||mg;
+    } else {
+        return 0;
+    }
     } else {
         return 0;
     }
@@ -457,4 +472,4 @@
     return $val;
 }
 
-1;
\ No newline at end of file
+1;
diff -uNr Net-Whois-Raw-1.52.orig/lib/Net/Whois/Raw/Data.pm Net-Whois-Raw-1.52/lib/Net/Whois/Raw/Data.pm
--- Net-Whois-Raw-1.52.orig/lib/Net/Whois/Raw/Data.pm	2008-03-27 00:29:04.000000000 +0900
+++ Net-Whois-Raw-1.52/lib/Net/Whois/Raw/Data.pm	2008-06-08 22:20:51.000000000 +0900
@@ -6,6 +6,7 @@
     SPB.RU
     MSK.RU
     VN
+    AC
 );
 
 our %servers = qw(
Files Net-Whois-Raw-1.52.orig/t/.02-internet.t.swp and Net-Whois-Raw-1.52/t/.02-internet.t.swp differ
diff -uNr Net-Whois-Raw-1.52.orig/t/02-internet.t Net-Whois-Raw-1.52/t/02-internet.t
--- Net-Whois-Raw-1.52.orig/t/02-internet.t	2008-03-27 00:40:21.000000000 +0900
+++ Net-Whois-Raw-1.52/t/02-internet.t	2008-06-09 23:47:37.000000000 +0900
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 11;
+use Test::More tests => 13;
 
 BEGIN {
     use_ok('Net::Whois::Raw',qw( whois ));
@@ -18,6 +18,7 @@
     freebsd.org
     reg.ru
     ns1.nameself.com.NS
+    nic.ac
 );
 
 SKIP: {
@@ -36,6 +37,9 @@
     
     # get_server
     ok( Net::Whois::Raw::Common::get_server( 'test.test', 1 ) eq 'TEST.whois-servers.net', 'get_server' );
+
+    # Net::Whois::Raw::www_whois_query
+    ok( Net::Whois::Raw::www_whois_query( 'nic.ac' ) =~ /Organization Name.*Network Information Center/i, "www_whois_query");
     
     # Net::Whois::Raw::Common::process_whois
     no warnings;