/k user

$self->ctcp("ACTION", $target, $message);

#!/usr/bin/perl -w

use strict;
use Net::IRC;

my $channel = ""; # Der gewuenschte Channel (mit # vorran).
my $server = ""; # ...

my $irc = new Net::IRC;

print "Creating connection to IRC server...\n";

my $conn = $irc->newconn(Server   => ($ARGV[0]  ||  $server),
             Port     => 6667,
             Nick     => 'botnick',
             Ircname  => 'irc-name',
             Username => 'username')
    or die "irctest: Can't connect to IRC server.\n";

# Handler Subs:

sub on_connect {
    my $self = shift;
    
    print "Joining $channel...\n";
    $self->join($channel);
    $self->privmsg($channel, "Hallo Welt!");
}

# ... Weitere Handler-Subs ...

print "Installing handler routines...";

# ... Handler ....

# Globale Handler:

$conn->add_global_handler(376, \&on_connect);

# ... Weitere globale Handler ...

print " done.\n";

print "starting...\n";
$irc->start;