Select Code to Download

use XML::Smart ;
my $XML = new XML::Smart(q`
...
foreach my $o (@output ){
  print "\n $o->{format}" ;
}

 == Available Frame Formats For 123 ==
 a
 b