创建perl脚本以远程连接到另一台服务器并读取文件？

use strict;
use warnings;
use Net::SSH2;

# 远程服务器信息
my $host = '远程服务器IP地址';
my $port = '远程服务器SSH端口';
my $username = '远程服务器用户名';
my $password = '远程服务器密码';

# 连接远程服务器
my $ssh = Net::SSH2->new();
$ssh->connect($host, $port) or die "无法连接到远程服务器: $!";
$ssh->auth_password($username, $password) or die "无法进行身份验证: $!";

# 执行远程命令
my $command = 'cat /path/to/file.txt';  # 读取文件的命令
my $output = $ssh->exec($command) or die "无法执行远程命令: $!";

# 输出结果
print $output;

# 断开连接
$ssh->disconnect();