use strict ;
use warnings ;

alarm 2 ;
$SIG{ALRM} = sub{
	syswrite STDERR, "s Timeout reached " ;
	print STDERR "p Timeout reached " ;
} ; 
sleep(4) ;
syswrite STDERR, "s Program end " ;
print STDERR "p Program end " ;
sleep(2) ;
__END__
C:\perlproject>perl sigtst.pl
s Timeout reached p Timeout reached s Program end p Program end

s Timeout reached - Printed after 2 seconds
p Timeout reached - Printed after 2 seconds
s Program end     - Printed after 4 seconds
p Program end     - Printed after 4 seconds