$oldtime = 1043205456;
$filename = /share/shared/path/somepath/doc with space.doc;
utime ($oldtime, $oldtime, "$filename");

##</code><code>##

chdir("/share/shared/path/somepath");
$filename = doc with space.doc;
utime ($oldtime, $oldtime, "$filename");

##</code><code>##

#!/usr/bin/perl -w

open(CSV, "/tmp/doctime.txt"); #contains comma seperated path,filename,olddate
@title = <CSV>;			

# I know this is lame but it works and I understand it
for ($i = 0; $i < scalar(@title); $i++)
	{
# some of you dont like this but it works fine
	($dironly[$i], $filename[$i], $date[$i]) = split(",", $title[$i]); 
	}

for ($a = 0; $a < scalar(@filename); $a++)	
{			
$access= $date[$a];
$file  = $filename[$a];
$dir   = $dironly[$a];

chdir("$dir");

print "$dir $file $access\n"; #use this for a log
print utime ($access, $access, "$file"), "\n";
}

##</code><code>##

/staff/cy/share/shard/cr,MS_CR_New diensions server.xls,1020001208
/staff/cy/share/shard/cr,MS_CR_keon route modification 180902.xls,1044234302
/staff/cy/share/shard/cr,MS_CR Key route addition001.xls,1044234302
/staff/cy/share/shard/cr,CY_CR_Memory upgrade.doc,1034234102