Perl, <strike>99</strike> <strike>81</strike> <strike>75</strike> <strike>51</strike> <strike>40</strike> <strike>36</strike> <strike>29</strike> 27 bytes -------------- sleep(print gmtime.$/);do$0