( undef, undef, my $mode ) = stat 'filename';