Select Code to Download

#!perl
use strict;
...
    push @rows,\%rec;
  }
}

# or put in file
sub get_template {
...
    </work>
  </find>
</find>