#!/usr/bin/perl
use File::Find;

$|++;

my $path = '.';
my $cmd = 'file';
finddepth (\&wanted,$path);

sub wanted {
  return unless -f; #-d for dir ops or comment out for both 
#  system("d2u -U -b -v $_") or warn "$!\n";
  system($cmd ,$_) or warn "$!\n";
 }

__END__