>>860
こういう高度なコードが考えられる

ラベルTIMEOUTからifまでが目的のブロック
do-whileでも問題なし

好みでsleepの秒数を延ばしてもいい
sleepが無いと恐ろしいことになる


main () ;

sub main {
　　 my $min = 1 ;
　　 my $timeout = time + 60 * $min ;

　　 TIMEOUT: {
　　　　 print "sleep.\n" ;
　　　　 sleep 5 ; # 5sec.
　　 } if ( time < $timeout ) { goto ("TIMEOUT") ; }

　　 return 1 ;
}