>> 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