Re^2: coming out of perl script after 10 min.

[venky4289]

#!/usr/bin/perl

eval {

   local %SIG;
   $SIG{ALRM}=
     sub{ die "timeout reached, after 20 seconds!\n"; };
   alarm 20;
   print "sleeping for 60 seconds\n";
   #sleep 60; # This is where to put your code, between the alarms
   $x=<stdin>;
   alarm 0;
};

alarm 0;

if($@) { print "Error: $@\n"; }

exit(0);

Here we should enter some input, but my requirement is if the input is not enetered in 20 sec, it should come out of the program(Exit the program).