my $exp=new Expect->spawn("telnet $server $port");
$exp->expect(5,-re=>'sername:') or die "fehler in username\n";
$exp->send_slow(0,"$usr\n");
$exp->expect(5,-re=>'Password:') or die "No password prompt\n";
$exp->send_slow(0,"$password\n");