#!/usr/bin/perl
use strict;
use strict;
use warnings;
use Encode;

my $topdir;

	if (scalar(@ARGV)) {
		$topdir = shift @ARGV;
	} else {
		print "Enter top dir : ";
		$topdir = <>; chomp $topdir;
	}

	warn("top directory [$topdir] : ",(Encode::is_utf8($topdir) ? '(utf8)' : '(bytes)'));
	unless (opendir(DIR,$topdir)) {
		die ("Could not open it : $!");
	}
	closedir DIR;
	warn "everything ok";
	exit 0;