my @listing = sort { -d $b <=> -d $a || $a cmp $b } grep { ! /^\.\.?$/ } readdir DIR;
$cwd .= "/" . ($listing[0] || '.');
$cwd =~ s#/#\\#g;