Thanks. It works like a champ. Got to love undocumented features. While messing around I also found this may also work. I think your's is probably better.

  print $chan2 "\ndir\n";
  while (<$chan2>) {
    print "$_";
}
[download]