Select Code to Download

my $result;
while(<$chan>){
...
  print "Inside loop: $result\n";
}
print "Outside loop: $result\n";