Select Code to Download

PROCESS_DATA:
...
          }else{ print "out of input\n"; last PROCESS_DATA;  }
     }
} # end PROCESS_DATA

sub worker{
    my $thr_num = shift;
...

    return;
}