my $webflags = 0;    
        fcntl(STDIN, F_GETFL, $webflags)
            or die "Couldn't get flags for HANDLE : $!\n";
        $webflags |= O_NONBLOCK;
        fcntl(STDIN, F_SETFL, $webflags)
            or die "Couldn't set flags for HANDLE: $!\n";