perl - Net::SSH2 を使用してファイルをコピーするには?

Question

$cmd の出力を scp/sftp 経由で 2 番目のサーバーにコピーする際に助けが必要です。このコードがあります。正常に動作しますが、$ cmd の出力が ~700MB、15000 行であるため、時間がかかります。

use warnings;
use Net::SSH2;
my ($host, $user, $password, $outfile) = @ARGV;
my $cmd = "show zoneset active";
my $ssh = Net::SSH2->new();
$ssh->connect($host);
$ssh->auth_keyboard($user, $password);
my $channel = $ssh->channel();
$channel->exec($cmd);
open OUTPUT, ">", "$outfile";
while (<$channel>) { print  OUTPUT };
$channel->close;
$ssh->disconnect;