package Example; my $file = "../botcore.pm"; eval qq/use $file /; use strict; require Exporter; our @ISA = qw(Exporter); our @EXPORT_OK = qw(); &botcore::addhandler("Example", "public", "/[!@]hello/"); sub public { my ($nick, $chan, $text) = @_; if (&botcore::isop($chan, $nick)) { $botcore::conn->privmsg($chan, "Hello! Testing, 1, 2, 3") } } 1;