# given an Expect object in $e
# given a command to run in $command 
# given a timeout value in $timeout
# given that command does not print ENDOFCOMMAND to STDOUT

$e->send("$command;echo ENDOFCOMMAND\n");
$e->expect($timeout,[qr/(?<!echo )ENDOFCOMMAND/ => sub { 0;}],
  [qr/(echo ENDOFCOMMAND)/ => sub { exp_continue;}]);

$outputfromcommand = $e->before();