use strict;
use warnings;
use File::LibMagic;

my $mm = File::LibMagic->new();
my $path='/home/backup';

for my $file (glob("$path/*"))
{
  next unless -f $file;
  my $type=$mm->checktype_filename($file);
  $type=(split('[/;]',$type))[1];
  print "$type\n";
}

use strict;
use warnings;
use File::MMagic;

my $mm = File::MMagic->new();
my $path='/home/backup/';

for my $file (glob("$path*"))
{
  next unless -f $file;
  my $type=$mm->checktype_filename($file);
  $type=(split('[/;]',$type))[1];
  print "$type\n";
}

use strict;
use warnings;
use File::LibMagic;
use File::Spec;

my $mm = File::LibMagic->new();
my $path='/home/backup/';

opendir(my $dh, $path) or die("Can't open dir $path");
while( my $file=readdir($dh) )
{
  my $file_path=File::Spec->join($path,$file);
  next unless -f $file_path;
  my $type=$mm->checktype_filename($file_path);
  $type=(split('[/;]',$type))[1];
  print "$type\n";
}
closedir($dh);

#! /usr/bin/perl
use strict;
use warnings;

# this is findmp3
# findmp3 DIR [DIR2] [DIR3]

use File::Find::Rule;

my @dirs = @ARGV;
if ( !@dirs ) {
  warn "No directories specified! Using '.' for search.\n";
  @dirs = ( '.' );
}

my @files = File::Find::Rule->file()
                            ->name('*.[mM][pP]3')
                            ->in( @dirs );

print "Found these files: \n", join "\n", @files;