Select Code to Download

require Expect;
use strict;
...
unless ($proc->expect(10,"Mommy")) {
    print "Stop selling women shoes\n"; 
}

liord@analog2 238 > tester.pl
Al Bundy rules!
Stop selling women shoes