note flexvault <p><a href="http://www.perlmonks.org/?node_id=448607">ISAI student</a>,</p> <p>I have a common module that includes the following: <code> sub Touch { my $file = shift; open ( my $TOUCH,">>",$file ) || Die_Rtn( 23, "$Caller: ! open failure on |$file|"); close $TOUCH; } </code></p><p> In your code you call it the same way as you do now. Make sure you have the ">>" or you'll clear the file. Note: On some older *nix systems, I've had to actually do I/O to the file. In that case, I'd 'print' a "\n" to the end before closing. I didn't like that solution, but it did work and didn't cause any *KNOWN* problems. </p><p> I have used mostly 'fork', so I've never tried this with Threads, so others may suggest an alternative, but this works and is faster than calling the system 'touch'. 'Die_Rtn' is also in the common module and determines if the failure is for the user or the system and acts accordingly. </p> <p>Hope this helps!</p> <div class="pmsig"><div class="pmsig-733061"> <p><b>"Well done is better than well said." - Benjamin Franklin</b></p> </div></div> 1005135 1005135