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"; 
}