Select Code to Download

#!/usr/bin/perl -w
use strict;
use XML::Writer;
...
}

$xml->endTag('xbel');

__END__
#!/usr/bin/perl -w
use strict;
...
    else  {print "\n\t" . $equiv{$e} . "=" if exists $equiv{$e}    }
}
sub end {undef $flag}

__END__
#!/usr/bin/perl -w
#
...
    return %attrs;
}