# 昔はこんな風にselectで代用してた select(undef, undef, undef, 0.5); # 500ms(0.5秒)のsleep # Time::HiResが使えるなら、usleepを使いませう # usleepは1秒以下のsleepが可能 # 引数はμ秒で指定、戻り値は実際にsleepしたμ秒 use Time::HiRes qw( usleep ); $micsec = usleep( 500000 ); # 500ms(0.5秒)のsleep $micsec = usleep( 1000 ); # 1ms(0.001秒)のsleep $micsec = usleep( 10 ); # 10μs(0.00001秒)のsleep # CPAN - Time::HiRes - http://search.cpan.org/dist/Time-HiRes/ #