#! /usr/bin/perl
#-*- Perl -*-

while(<>) {
    if (/^<!-- Date: (.*) -->$/) {
	print("touch -d \"$1\" $ARGV\n");
    }
}