Select Code to Download

#!/usr/local/bin/perl
...
$connection->print('q');
$connection->close;
exit 0;

#!/usr/bin/expect
set env(TERM) no-resize-vt100
...
expect -re ".*Accept.*: $" { send y\r }
expect -re ".*Select.*: $" { send q\r }
exit 0