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