sub sotounpcb {
    local($so) = @_;
    eval "((($so)-> &so_pcb))";
}
1;