Select Code to Download

    my ($new_status,$scr_date,$pros_id,
        $tsr_name,$sales_rep_name,$prod_code,
        $leadsht_id,$curr_status) = @_;