Update examples/readdir.pl

$file already sanitized in filename_fixup, right?