diff --git a/lib/API/IRC.pm b/lib/API/IRC.pm
index 879cffd..77ae630 100644
--- a/lib/API/IRC.pm
+++ b/lib/API/IRC.pm
@@ -9,7 +9,7 @@ use Exporter;
 use base qw(Exporter);
 
 our @EXPORT_OK = qw(ban cjoin cpart cmode umode kick privmsg notice quit nick names
-                    topic who usrc match_mask ison);
+                    topic who whois usrc match_mask ison);
 
 # Create the on_disconnect event.
 API::Std::event_add('on_disconnect');
@@ -206,6 +206,15 @@ sub who {
     return 1;
 }
 
+# Send a WHOIS.
+sub whois {
+    my ($svr, $nick) = @_;
+
+    Auto::socksnd($svr, "WHOIS $nick");
+
+    return 1;
+}
+
 # Get nick, ident and host from a <nick>!<ident>@<host>
 sub usrc {
     my ($ex) = @_;