sub on_public {
    my ( $self, $event ) = @_;
    my ( $nick, $mynick ) = ( $event->nick, $self->nick );
    my ($channel) = ( $event->to )[0];
    my ($line) = ( $event->args );
    my ($arg)  = ( $event->args );
    $arg =~ /^(\S+)\s*(.*)$/;
    ( $arg, my $extarg ) = ( $1, $2 );
    if (   $line =~ /^!schreibwas/ ){
            output($self,$event,"blablub");
       }
}

sub output {
        my $self = shift;
        my $event = shift;
        my $line = shift;
        my $nick = ( $event->nick );
        my $channel = ( $event->to )[0];
        if($msgswitch eq 'public'){
                $self->privmsg( $channel, "$line" );
        } elsif($msgswitch eq 'query'){
                $self->privmsg( $nick, "$line" );
        }
}