#! /usr/bin/perl
 
use Parallel::ForkManager;
 
$directory1 = "/user/home/directory1/";
 
my $pm = Parallel::ForkManager->new(10);
 
my @files = glob("$directory1/*");
my $number = scalar(@files);
 
for (my $i = 0; $i < $number; $i++) { 
 
    $pm->start and next;
    
    system ("rm", "-fr", $files[i]);
    exit(0);
                
  $pm->finish;
}

$pm-> wait_all_children;