sub removeFilesWithPattern{
        my($folder,$filePattern) = @_;
        my $deletedFilesCounter = 0;
        &log_this($customer,$ordername,"Deleting files which matches pattern $filePattern in folder: $folder"); 
        
        if (-d $folder){
                opendir FOLDER, $folder or die "cannot open dir $folder $!\n";
                my @fileList = readdir FOLDER;
                closedir FOLDER;
                
                foreach my $entry (@fileList){
                        if (!-d "$folder\\$entry"){                             
                                if ($entry =~ m/$filePattern/){
                                        &log_this($customer,$ordername,"delete file $entry");
                                        unlink "$folder\\$entry";
                                        $deletedFilesCounter++;                 
                                }                                                               
                        }                       
                }               
        }
        return $deletedFilesCounter
}