Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
                                                                      
+          
...
        select(undef, undef, undef, 0.1);
    }
}