print TIMES "$time." . '-' x 63 . "\n\n";'

##</code><code>##

$ perl -le 'print tr/-// for "$time.---------------------------------------------------------------\n\n"'