#!/usr/local/bin/perl while(1){`sleep 599`;print `date`;}
#!/usr/local/bin/perl while(1){`sleep 59`;print `date`;}