if (basename($fh) =~ m{^(^[\x00-\x19\x7e-\xff\\/]+)$}) { my $fn = $1;
fileparse_set_fstype("MSDOS");
$fn =~ s/^(.{100}).+$/$1/;