$SIG{ALRM}=\&time_out;

eval{
	alarm(2);
	my $buf=<>;
	alarm(0);
};

exit;

sub time_out { die "FED UP WAITING"; }