#!/usr/bin/perl
use IO::Compress::Zip qw(:all);
$path='/DATA/DOCUMENTS/';
opendir my $dh, $path;
my @files = readdir $dh;
foreach my $files (@files){
print "$files\n";
$zipfilename=substr($files,7);
$zipfilename1=$path.$zipfilename;
zip [ glob("$zipfilename1*.pdf") ] => "$zipfilename1.zip"
 or die "Cannot create zip file: $ZipError" ;
}
closedir $dh;