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