I have posted this here because I had in the past implemented<>this using different approaches and none where to my satisfaction (made by me :-), I know this is a rather old post, yet this problem is rather difficult one otherwise and the code is almost self explanatory. It is based on sysread almost word for word from the perl cookbook or programming perl, the blocking factor is set to 2 bytes, in the event I want port this to win 32 'CRLF'. 
sub getcmd {
my $cin='';
my $buf='';
my $len=0;
my @cin=();
local $/=undef;

   while  ($RUN) {
      print(STDERR ' ');
      $buf='';
      $len=0;
      while ($len=sysread(STDIN,$buf,2)) {
         if (! defined($len)) {
            next if ($! =~ /^Interrupted/);
            fatal(0xff,"system read fault",$!);
         }
         $cin.=$buf;
         last if (rindex($buf,"\n",0) > -1);
      }
      chomp($cin);
      if ($cin) {
         @cin=split(/\s+/,$cin);
         print(STDERR "CIN: $cin\n") if $VRB;
         last;
      } else {
         $RUN--;
         unless ($RUN) {
            print(STDERR "EXIT: timeout no activity\n") if $VRB;
            print(0x11);
         }
         sleep 1
      }
   }

   return(@cin);
}

[download]

In reply to Re: Checing presence of input on standard input in non-blocking way, sans user interaction by wet
in thread Checing presence of input on standard input in non-blocking way, sans user interaction by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.