diff --git a/perl/irc_bot.pl b/perl/irc_bot.pl
new file mode 100755
index 0000000..5335a05
--- /dev/null
+++ b/perl/irc_bot.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use Modern::Perl;
+use AnyEvent;
+use AnyEvent::IRC::Client;
+
+my $c = AnyEvent->condvar;
+my $cl = AnyEvent::IRC::Client->new;
+$cl->reg_cb (connect => sub {
+		my ($con, $err) = @_;
+		if (defined $err) {
+			warn "connect error: $err\n";
+			return;
+		}
+	});
+$cl->connect ('irc.geeknode.org', 6667, { nick => '[bot]kanette' });
+$cl->send_srv ( PRIVMSG => 'karchnu', 'Hi there!');
+$c->wait;
+
+$cl->disconnect;