my ($dir, $file);
while( readdir DIR ){
  if( -d ){
    $dir = $_;
    last;
  }
  $file ||= $_;
}
close DIR;
$cwd .= "/" . ($dir || $file || '.');
$cwd =~ s#/#\\#g;
warn $cwd;

##</code><code>##

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