require Expect;
use strict;
$SIG{'INT'}=sub {print "Al Bundy rules!\n";};
sleep 10000;