>time < nul & echo. & perl !.pl > output & time < nul & echo.
The current time is: 14:46:18.10
Enter the new time:
The current time is: 14:46:18.76
Enter the new time: