$SIG{ALRM} = sub { die 'STDIN' };

eval {
   alarm(1);
   print while <>;
   alarm(0);
};

print "no STDIN\n" if $@ =~ /STDIN/;