sub _login{
    my $self = shift;
    my $auth = shift;
    $self->{IO}->getline || die "Server antwortet nicht!\n";
    $self->{IO}->print("USER $auth->{user}", CRLF);
    $self->_getline;
    $self->{IO}->print("PASS $auth->{pass}", CRLF);
    $self->_getline;
}

sub _getline{
    my $self = shift;
    my $status = $self->{IO}->getline || die "Verbindung verloren!\n";
    print $status if $self->{dev};
    my $st = [split /\s+/, $status];
    die "Fehler: $status\n" if $st->[0] ne '+OK';
}