$working_directory = encode('UTF-8', $working_directory);

##</code><code>##

   find (\&wanted, $working_directory);
	sub wanted
	{
		$filename = $_;
		$working_file = $File::Find::name;
		if (-d $File::Find::name)
		{
		$filetype = "directory";
        }
     ......
	else
        {
        print LOGFILE "ERROR: $working_file does not exist!!! ABORTING!!!\n";
        exit 1;
        }

##</code><code>##

   use utf8;

##</code><code>##

   <?xml version="1.0" encoding="UTF-8" standalone="no"?>
   <!DOCTYPE glade-interface SYSTEM "glade-2.0.dtd">
   <!--Generated with glade3 3.4.0 on Sat Nov  3 19:55:02 2007 -->