(undef, my $aa, my $bb) = dir();