#!/usr/bin/perl -w
#-- CODE: KUBO Takuya (kubo@ees.hokudai.ac.jp)
#-- DATE: Wed Dec 19 10:46:00 JST 2001

use strict;
my $date = `LANG=C; date`;
chomp $date;
my $input_file = shift @ARGV;
$input_file = "-" if !defined $input_file;
open IN, $input_file or die "ERROR: Can't open $input_file";
while (<IN>) {
        s/(DATE:)(.*$)/$1 $date/g;
        print;
}
close IN;

exit 0;