use strict ;
use warnings ;
alarm 2 ;
$SIG{'ALRM'} = sub{ print "Timeout reached" } ;
$SIG{'INT'} = sub { exit(0) } ;
<> ;
__END__
[/tmp] # perl pltst1.pl
^C[/tmp] # perl pltst1.pl
^CTimeout reached[/tmp] #

(1. ctrl-c pressed < 2 seconds
 2. ctrl-c pressed > 2 seconds)