Select Code to Download

#!/usr/dist/exe/expect -f

...
send -- "cd $dir\r"
interact

#!/usr/bin/perl

...
$session->expect(60, -re, "$shell_prompt");
print $session "cd $dir\r";
$session->interact();

$session->interact(\*STDIN, "\r");

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