my $ts = ( stat 'my_file.txt' )[9] ;