如何使用Perl通过TCP和UDP连接到远程计算机？

cpan install Net::Telnet

use Net::Telnet;

my $telnet = new Net::Telnet(Host => 'remote_host', Port => 'remote_port');

$telnet->print("your_command_here");

my $output = $telnet->getline();

print "Output: $output\n";

use IO::Socket::INET;

my $socket = new IO::Socket::INET(PeerAddr => 'remote_host', PeerPort => 'remote_port', Proto => 'tcp');

die "Could not create socket: $!\n" unless $socket;

print $socket "your_command_here\n";

my $response = <$socket>;

print "Response: $response";

$socket->close();

use IO::Socket::INET;

my $socket = new IO::Socket::INET(PeerAddr => 'remote_host', PeerPort => 'remote_port', Proto => 'udp');

die "Could not create socket: $!\n" unless $socket;

print $socket "your_command_here\n";

my $response = <$socket>;

print "Response: $response";

$socket->close();