#!/usr/bin/perl
my ($date, $file) = @ARGV;
use Date::Manip qw(ParseDate UnixDate);
my $when= UnixDate(ParseDate($date), '%s');
print "Winding $file to $when\n";
system("vim $file");
utime $when, $when, $file;