in reply to Perl and Expect Problem

Very likely the sftp prompt is the last thing printed on the screen. What does your "bunch of Perl Code" do?

Try 

system ("expect net");
print "expect done\n";

[download]

If you want to run expect within perl, use Expect.

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

In Section Seekers of Perl Wisdom