Help for this page

Select Code to Download


  1. or download this
    use Tie::Scalar;
tie (my $SLEEP_TIME, 'Tie::StdScalar', 0.25);
select (undef, undef, undef, $SLEEP_TIME);
  2. or download this
    use Tie::Scalar;
tie (my $SLEEP_TIME, 'Tie::StdScalar', 0.25);
print $SLEEP_TIME;
select (undef, undef, undef, $SLEEP_TIME);