my $file = '...';
say (stat $file)[9];
say qx{dir $file};