alarm 5;
$SIG{ALRM} = sub { print "alarm!\n" };
my $yawn = `sleep 10 ; echo "yawn"`;
print "yawn?  $yawn\n";
__END__
alarm!
yawn?  yawn