Help for this page

Select Code to Download

Select or download this

sub split_up {
    my @d = @{ shift() };
...
    
    return ($cust, $child);
}

Select or download this

sub split_up {
    my @d = @{ shift() };
...

    return ($cust, $child);
}