open(CSV, "/tmp/doctime.txt") or die "Failed to open CSV: $!\n";
while (my $line = <CSV>)
{
  my @val = split(/,/, $line, 2);
  unless (utime $val[0], $val[0], $val[1])
  {
    warn "Failed to utime $val[1]: $!\n";
  }
}
close CSV;