MODIFIED DATE AN D TIME

[teambcdsoftware]

Hello,

Activestate,Windows XP + Perl 5.8
I need some help with a function that I use to create files.
I have a source file that I use to get parameters to create the new
files.
I need to get the modified date and time of the source file and set the
last modified date of the new file to the source file's last modified
date.
code so far
==========================================
use Date::Manip;

$modified = time - ((-M $file) * 86400);
$filemdate = localtime($modified);
$filemdate = UnixDate ($filemdate, "%Y%m%d - %H%M%S");
print "$filemdate\n";

But this is a value that changes as time changes and is not static....
Please help if you can.