Select Code to Download

use Tie::Scalar;
tie (my $SLEEP_TIME, 'Tie::StdScalar', 0.25);
select (undef, undef, undef, $SLEEP_TIME);

use Tie::Scalar;
tie (my $SLEEP_TIME, 'Tie::StdScalar', 0.25);
print $SLEEP_TIME;
select (undef, undef, undef, $SLEEP_TIME);