#!/usr/bin/perl -w
use Expect;
my @mylog;
sub reporter {
#    print "PASSED:<",join("><",@_).">\n";
     push(@mylog,@_);
}

$object=Expect->spawn("some command I need");
$object->log_file(\&reporter);