Help for this page

Select Code to Download


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