my $input;
 sysread( \*STDIN, $input, 1024);

##</code><code>##

use Fcntl;
  
fcntl(\*STDIN, F_SETFL, O_NONBLOCK) || die "$!\n";
# Set the non-block flags