${^WIDE_SYSTEM_CALLS};

#use Encode;
#use utf8;

foreach $FILE ( `dir /B c:\\work\\intl-testout` )
#foreach $FILE ( `dir /B c:\\sigtools` )
{
    chomp($FILE);
    $FULLPATH = "c:/work/intl-testout/" . $FILE;
    
    #my $DECODE = decode("utf8",$FULLPATH);    
    
    #if ( -e $DECODE )
    #if ( -e $FULLPATH )
    if ( -e $FULLPATH )
    {
        print "DOS Dir listing File exists - $FULLPATH\n";
    }
    else
    {
        print "DOS Dir listing File DOES NOT exist - $FULLPATH\n";
    }
}
 
if ( ( opendir (HDIR,"c:/work/intl-testout" ) ) )
{
    while ( $FILE = readdir(HDIR) )
    {
        $FULLPATH = "c:/work/intl-testout/" . $FILE;
  
        if ( -e $FULLPATH )
        {
            print "Perl Dir listing File exists - $FULLPATH\n";
        }
        else
        {
            print "Perl Dir listing File DOES NOT exist - $FULLPATH\n";
        }
    }
}

$FILE = q|c:/work/intl-testout/resumé.txt|;

print "$FILE\n";
if ( -e $FILE )
{
    print "File exists\n";
}
else
{
    print "Can not find File\n";
}