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";
}