my $sock = IO::Socket::INET->new(PeerAddr => $slav, PeerPort => $port, Proto => 'tcp');
$_=<$sock>;
return if ($_ !~ /^010/);

        print $sock "user $user\r\n";
        $_=<$sock>;
        return if ($_ !~ /^305/);

        print $sock "pass $pass\r\n";
        $_=<$sock>;
        return if ($_ !~ /^301/);

        print $sock "commando beispiel\r\n";
        $_=<$sock>;
        return if ($_ !~ /^121/);