rob@development:/home/rob/workspace$ perl -e 'sub a { &a }; a'
Out of memory!

##</code><code>##

sub parsevcard {

    my ($inputstr, $inputpos, $depth) = @_;
    if ($depth > $max_depth) {

        #   Recursion beyond allowable depth error handling here
    }

    .
    .

    $currentcard->{AGENT} = parsevcard($inputstr, $pos, ++$depth);
}