task rmap_nowy_12_vseq_base::send_pkt();

    ptp_pkt = ptp_pkt_t::type_id::create("ptp_pkt");

    fd = $fopen("vect.txt","r");
    fd_val = $fopen("vect_number.txt","r");
    fd_packet_num = $fopen("packet_number.txt","r");


    status = $fscanf(fd_packet_num, "%d", packet_num);
    $display("Packet number: %d",  packet_num);
    $fclose(fd_packet_num);

    for(int i = 0; i < packet_num; i++) begin
        status = $fscanf(fd_val, "%d", val);
        if (status == 0)
        begin
            $display("Error reading val");
            ptp_pkt.cargo = new[20];
        end
        else
        begin
            ptp_pkt.cargo = new[val];
            $display("Numbers: %d", val);
        end


        foreach(ptp_pkt.cargo[i])
        begin
            status = $fscanf(fd,"%h",data);
            ptp_pkt.cargo[i] = data;
            $display("My data value: %h", data );
        end
        $display("wait");

        ptp_pkt.start(spacewire_serial_0);
    end

    $fclose(fd_val);
    $fclose(fd);

endtask