Help for this page

Select Code to Download

Select or download this

use strict;
use XML::Parser;
...
    my ($expat, $tag, %a) = @_;
    print "i am alive and running foo_\n";
}

Select or download this

foo before death
i am alive and running foo_