You can use
Code:
my ($dev,$ino,$mode,$nlink,$fuid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize,$blocks) = stat $db_file_name;
$last_modified = &get_date($mtime);
You can modify &get_date to do your formatting, but you'll have to also modify &date_to_unix to match it.
Also, you will need to adjust your &get_date subroutine to accept input, if it hasn't been already. The first few lines of sub get_date should be:
Code:
$time = @_[0];
($time) | | ($time = time());
my ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($time);
Be sure to take out the space between the two | characters. Alternatively, you could change them to "or" --
Code:
($time) or ($time = time());
------------------
JPD