######### Start up an Expect session ################ my $exp=Expect->new; $exp->raw_pty(0); $exp->stty('sane'); print "exp settings:".$exp->stty('-a')."<<<----\n"; $exp->spawn("telnet $dev->{IP}"); $exp->log_file("$dev->{DEVICE_CONF_PATH}/$dev->{IP}.log"); if($DEBUG){ $exp->log_stdout(1); }