要使用Perl来实现Linux用户登录，可以使用Net::SSH::Perl模块。以下是一个简单的示例代码：
use strict;
use warnings;
use Net::SSH::Perl;
# 用户名和密码
my $username = 'your_username';
my $password = 'your_password';
# 远程主机的IP地址
my $host = 'remote_host_ip';
# 创建SSH连接
my $ssh = Net::SSH::Perl->new($host);
$ssh->login($username, $password);
# 执行命令
my ($stdout, $stderr, $exit) = $ssh->cmd('whoami');
print "输出：$stdout\n";
在这个示例中，我们首先导入Net::SSH::Perl模块，然后设置用户名、密码和远程主机的IP地址。接下来，我们创建SSH连接并登录到远程主机。最后，我们使用cmd方法执行命令，并打印输出结果。
请注意，为了运行这个代码，你需要在你的系统上安装Net::SSH::Perl模块。你可以使用cpan命令来安装它：
cpan Net::SSH::Perl
为了确保代码的安全性，建议使用SSH密钥文件进行身份验证，而不是明文密码。
