Select Code to Download

#!/usr/bin/perl
use strict;
...

my $text = $num_parents == 2 ? $family_group->xmlify : $child_group->x
+mlify;
print "$text\n";

#!/usr/bin/perl

...

  my $text = $svg->xmlify;
print "$text\n";