Expect->spawn("/usr/bin/rlogin -l $user $host");