Select Code to Download

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

sub parsevcard {

...

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