Shell Programming and Scripting

my $log = IO::File->new(">$log_file_name");
$log->print("date()."--\n\n\n");
sub process {
  my ($sub_dir, $file, $config, $log) = @_;
  $log->print("-- Reading $file file\n");
}

 my $pm = new Parallel::ForkManager($tc+1);
    $pm->run_on_finish( sub { my ($pid, $exit_code, $ident) = @_; $tmpFiles[$ident] = undef; } );
 foreach my $i (0..$#tmp) {
      # Forks and returns the pid for the child:
      my $pid = $pm->start($i) and next;
      $SIG{INT} = 'DEFAULT';
      my $filename = $tmp[$i]->filename();
      my $file = IO::File->new("<$filename") or die "Can't open $filename\n";
      while((my $line) = $file->getline()) {
        last unless defined($line);
        chomp $line;
        my ($dir, $file) = split(/\t/, $line);
        #  my $process = shift; is created above 
# Calling this from another file
        $process->($dir, $file, $config, $log);
      }
      $pm->finish; # Terminates the child process
    }