@echo off perl -e "$now = localtime; print STDERR $now, qq|\n|" copy nul timestamp > nul %* perl -e "print STDERR 86400 * -M 'timestamp', qq|\n|" erase timestamp