my $file_date = POSIX::strftime '%Y%m%d', localtime( ( stat )[ 9 ]+ );