Does the perl module automatically add the \r? Although I did it in a native expect script, one thing I did was instead of passing the root pw to the script, which seemed a little icky to me, I did this:

send -- "su\r"
interact -nobuffer "\r" return
[download]

This simply goes into interactive mode without collecting the root pw in the script.

~~
naChoZ