Select Code to Download

<foo/>

use strict;
use warnings;
...
Start: foo
End:   foo
Finally done

Foo/Bar.pm

...
 
$parser->parse($doc);
print "Finally done\n";

'<foo/>
'
Start: foo
50356: terminated with signal 4 -- core dumped

'<foo/>
'
Start: foo
13000: terminated with signal 11 -- core dumped

'<foo/>
'
Start: foo
End:   foo
corrupted regexp pointers at (eval 1) line 1.