$chan->shell(); print $chan "$cmd1\n"; @out1 = <$chan>; print $chan "$cmd2\n"; @out2 = <$chan>; ...