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