require Expect;
use strict;
$SIG{'INT'}=sub {print "Al Bundy rules!\n";};
$SIG{CHLD}='IGNORE';
my $proc=Expect->spawn("sleep 10");
unless ($proc->expect(10,"Mommy")) {
    print "Stop selling women shoes\n"; 
}

##</code><code>##

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