sub on_dcc {
    my ($self, $event) = @_;
    my $type = ($event->args)[1];

    if (uc($type) eq 'SEND') {
    open TEST, ">/tmp/net-irc.dcctest"
        or do { warn "Can't open test file: $!"; return; };
    $self->new_get($event, \*TEST);
    print "Saving incoming DCC SEND to /tmp/net-irc.dcctest\n";
    } elsif(uc($type) eq 'CHAT') {
    $self->new_chat($event);
    } else {
    print STDERR ("Unknown DCC type: " . $type);
    }
}