Help for this page

Select Code to Download

Select or download this

#!perl -w
use strict;
...
    select(undef,undef,undef,1.5);
    $x--;
    }

Select or download this

#!perl -w
use strict;
...
    select(undef,undef,undef,1.5);
    $x--;
    }