#!/usr/bin/perl

use strict;

binmode STDOUT, ":raw";  # make sure output is not "embellished"

my $path = ( $ARGV[0] and -d $ARGV[0] ) ? shift : ".";

opendir( D, $path );
my @files = grep /[^.]/, readdir( D );
for my $file ( @files ) {
    my $type = ( -f "$path/$file" ) ? "file" :
               ( -d _ ) ? "subd" : "othr";
    print "$file ==$type\n";
}

##</code><code>##

use Encode;

$_=encode("utf8","l\x{00e3}s");  # make sure the utf8 flag is off!

print "creating $_\n";
open( O,">",$_ ) or die "$_:$!\n";
print O "test\n"
close O;