Select Code to Download

      foreach (@connections_pending) {
            my $fh;
...
            my $t = threads->create( \&connection, $fh );
      }

sub upload_file {    
        my ( $fh, $req_ ) = @_;
...
my $t = threads->create( \&pre_process, $file, $desc, $dirpath );

}

sub pre_process {
    threads->detach();
...
    unlink(@files);
    threads->exit();
}