Select Code to Download

#!/usr/bin/perl
use strict;
...
  <foo>Foo1<bar>Bar</bar></foo>
  <foo>Foo2</foo>
</doc>