I have a script that sets up a telnet session as an object, where I want to then write to that session,(object) but I can not manage to write to the object ie...the telnet session sets up fine but when I want to write in the username/pswd, the deatils I send are not being received....any ideas... code below thanks splat

#!/usr/bin/perl -w
use Expect;

my $command = new Expect;

#print $command "telnet stiletto23-cssp0\r";

$command = Expect->spawn("telnet stiletto23-cssp0") or die "Couldn't s
+tart program:
 $!\n";

sleep 1;


#prevent output from being shown on our STDOUT
$command->log_stdout(1);


#wait 10 seconds for "username:" to appear
unless ($command->expect(10, "username:")) {
#print "timed out";
}

# send "username" and a carriage return to the program
print $command "admin\r";

sleep 1;
print $command "netra1\r";
print "now here\n";
[download]