Select Code to Download

use strict;
use XML::Parser;
...
    my ($expat, $tag, %a) = @_;
    print "leaving foo\n";
}