Select Code to Download

#!/bin/perl -w
use strict;
use XML::Parser;
...
  { my( $pe, $elt, %atts)= @_;
    print "my option: ", $pe->{'Non-Expat-Options'}->{my_option}, "\n"
+;
  }

#!/bin/perl -w
use strict;
use XML::Parser;
...
    $p->parse( '<c />') 
       unless( $pe->{'Non-Expat-Options'}->{my_option} > 3);
  }

element: a - my option: 1
element: c - my option: 2
element: c - my option: 3
element: b - my option: 4