for anybody who's interested I found out how to do it in perl expect.

$session->interact(\*STDIN, "\r");
print $session "\r";
[download]

is the same as

interact -nobuffer -re "(.*)\r" return
[download]

in tcl expect