use File::Copy;
my $source="C:/perl/robin/file1.txt";
my $target="C:/perl/robin/file2.txt";
my $mtime = (stat($source))[9];       # get modification time
copy($source, $target);
utime ($mtime, $mtime, $target);  # set modification time

    Source: geocities.com/robinchatterjee