The fourth argument to select specifies a timeout. If you call it with blanks for the first three arguments and a value for the fourth it will timeout for that long. For example, you can effect a sleep of 250 milliseconds this way:

 select(undef, undef, undef, 0.25);
[download]

See the perlfunc bit on select...