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