#!perl -w
#
use File::Find;
use strict;
use Encode qw(decode_utf8 is_utf8);


my $start = "/home/Hirschk/pmonks/utftest";


{
  local ${^WIDE_SYSTEM_CALLS} = 1;
  finddepth( \&showme, $start );
}

sub fixutf8 {
  for (@_) {
    if (${^WIDE_SYSTEM_CALLS} && !is_utf8($_)) {
      $_ = decode_utf8($_); 
    }
  }
}
sub showme {
  fixutf8($File::Find::dir,$File::Find::name,$_);
  print "\$_ = $_\n";
}