Good point. I will update the code to check to see if it exists before I touch it. Also, there was a good point from the person below, who recommends changing the name to a non-touch module because it's not the expected behavior of touch... I was going to put a large discliamer in the file that it doesn't follow the 'standard touch' behaviour because of writing the 'a' character...I noticed this script in my search, but it's a script not a module... so I was heasitant to create a module from it. ...
I think I'm just going to keep my module internally as is, and then take into considerations from this node and go from there.
I tested your script on win32 (cygwin && activestate) and it worked fine... Thanks

----
Zak

undef$/;$mmm="J\nutsu\nutss\nuts\nutst\nuts A\nutsn\nutso\nutst\nutsh\
+nutse\nutsr\nuts P\nutse\nutsr\nutsl\nuts H\nutsa\nutsc\nutsk\nutse\n
+utsr\nuts";open($DOH,"<",\$mmm);$_=$forbbiden=<$DOH>;s/\nuts//g;print
+;
[download]