要使用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密鑰文件進行身份驗證，而不是明文密碼。
