C:\test>type logger.pl
#! perl -sw
use strict;
use POSIX 'strftime';
$|++;
#! Sat Aug 31 23:13:46 CDT 2002

while (1) {
        sleep 1;
        print strftime( '%a %b %d %T %Z %Y',localtime), "@{[times]}", $/;
}

C:\test>logger
Mon Oct 07  BST 20020.18 0.04 0 0
Mon Oct 07  BST 20020.18 0.04 0 0
Mon Oct 07  BST 20020.18 0.04 0 0
Mon Oct 07  BST 20020.18 0.04 0 0
Mon Oct 07  BST 20020.18 0.04 0 0
^C
C:\test>^Clogger >log

# different session
C:\test>dir log
 Volume in drive C has no label.
 Volume Serial Number is 8C87-E163

 Directory of C:\test

02/10/07  09:59p                   980 log
               1 File(s)            980 bytes
                             25,827,328 bytes free

C:\test>dir log*
 Volume in drive C has no label.
 Volume Serial Number is 8C87-E163

 Directory of C:\test

02/10/07  09:59p                 1,120 log
02/10/07  07:17p                   186 logger.pl
               2 File(s)          1,306 bytes
                             25,827,328 bytes free

C:\test>perl -wni.bak -e "print if /7/;" log
Can't do inplace edit on log: File exists.

C:\test>perl -wni -e "print if /7/;" log
Can't do inplace edit without backup.

C:\test>