#!/usr/bin/perl -l

BEGIN { $| = 1; }

use strict;
use warnings;
use File::Find::Rule;
use File::LibMagic ':easy';

my(@files) = shift @ARGV;
foreach my $file (@files) {
    @files = File::Find::Rule->file()
        ->name('*.*')
        ->in(@files);
        print $file . MagicFile $file;
}