#!/usr/local/bin/perl

# 
# datecp: ファイル日付のコピー
# 
#     May.28,'97. Naoki OSHIRO.
# 
#     $Log:$
#

$src=$ARGV[0];
$dst=$ARGV[1];

die "No such file $src.\n" unless (-e $src);
open(TMP, ">>$dst") unless (-e $dst);

($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
 $atime,$mtime,$ctime,$blksize,$blocks)
    =stat($src);

utime $atime, $mtime, $dst;