Perl -- Kick Script (IRC Bot help)

[RageD]

Ok, how can I make my kick script work?

if ($event->nick eq "$owner") {
if ($arg =~ /$kick/i) {
$self->kick("$chan", "somevariable");
chat_log("somevariable kicked from $chan by $nick\n");
}
}

Now what would the variable be to fix that? So I would type !kick Nick & it would kick nick..

oh yeah, variable for $kick =

my $kick = "$opts{cmdprefix}kick";


-Thanks

-RageD