use strict;
use warnings;

my ($rin, $rout, $nfound);

$rin = '';
vec($rin, fileno(STDIN), 1) = 1;
$nfound = select($rout = $rin, undef, undef, 5);
syswrite(STDOUT, "We stop here...\n");