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