http://www.perlmonks.org?node_id=106511


in reply to Delaying a loop for a specified time

sleep(number of seconds to sleep);

or

select(undef,undef,undef,(number of seconds to sleep));

When using select you can use millisecond timing like
filling in 0.5 for a 500 millisecond sleep...

GreetZ!,

print "profeth still\n" if /bird|devil/;