Select Code to Download

for(0..$#$body) {
    print $body->[$_], "\n"; # or whaterver you wish to do with the el
+ement
}

foreach (@$body) {
    print "$_\n";
}