Select Code to Download

use warnings;
use strict;
...
  print "LINE : $_" while <$chan>;
  $chan->close;

use warnings;
use strict;
...
  print $chan "top\n";
  print "LINE : $_" while <$chan>;
  $chan->close;