Select Code to Download

  # untested code, reciting from memory
  my $e = Expect->spawn( '/usr/local/bin/foo', '-f', '/tmp/bar' );
  print $e "zug\n";
...
  else {
    print "hmm...";
  }