bash-2.02$ perl -e '{warn scalar localtime,$/;sleep 60;redo}'
Wed Mar 21 10:27:12 2001
Wed Mar 21 10:28:12 2001
Wed Mar 21 10:29:12 2001
^C

##</code><code>##

bash-2.02$ perl -e 'while(time%60){}{warn scalar localtime,$/;sleep 60;redo}'
Wed Mar 21 10:39:00 2001
Wed Mar 21 10:39:59 2001
Wed Mar 21 10:40:59 2001
Wed Mar 21 10:41:59 2001
^C

##</code><code>##

bash-2.02$ perl -e '{while(time%60){}warn scalar localtime,$/;sleep 59;redo}'
Wed Mar 21 10:58:00 2001
Wed Mar 21 10:59:00 2001
Wed Mar 21 11:00:00 2001
Wed Mar 21 11:01:00 2001
^C