Select Code to Download

#!/usr/local/bin/expect  -f
#!expect  -f $1 $2
...
                send -s -- "send $retfil\r"
                send -s -- "c\r"
        }

#!/usr/bin/perl -w

...
               ],
               '-re', qr'[#>:] $', #' wait for shell prompt, then exit
+ expect
              );