>> use Time::HiRes qw( stat ); Эх, не помогло. # perl -E'@s = stat "1.xml"; say $s[9]; ' 1228673685 # perl -E'use Time::HiRes qw(stat); @s = stat "1.xml"; say $s[9]; ' 1228673685 -- Andrew Shitov ______________________________________________________________________ andy на shitov.ru | http://shitov.ru