File::Find use with the tabbed format data!!!

format_file_find.pl

#!/usr/bin/perl
use strict; use warnings; use Data::Dumper;
use File::Find;
$| = 1;

find(\&wanted, './');

sub wanted { 
	my $file_type = `file -bi $_`;
	chomp($file_type);
	my ( $mime_type, undef ) = split( /;|\s/, $file_type );
	printf ( "%-65s => %-15s\n", $_ , $mime_type );
}