my $modified  = $object->mtime;

##</code><code>##

use File::Monitor;
use File::Monitor::Object;
my $wFileMonitor = File::Monitor->new();
$wFileMonitor->watch($wFile);
$wFileMonitor->scan;
my $modified  = $wFileMonitor->mtime;