Select Code to Download

open my $handle, '<', \$query or die "Cannot open in-memory file handl
+e: $!";
while (<$handle>) { ... }

for (`...`) {

}