my $rin = '';
vec($rin,fileno(STDIN),1) = 1;

my $rout;
my $val = "Default";
if (select($rout = $rin,undef,undef,5)){
    $val = <STDIN>;
} else {
    print "Default used\n";
}

print "\n\nThe value: $val\n";