| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/scripts/can.pl |
use Net::Telnet;
my $can = Net::Telnet->new();
$can->open(Host => "88.79.117.237",Port => "9091");
my @text = $can->cmd(String => "\#", Prompt => '/o/');
$can->close();
print "OUTPUT: " . join("--",@text) . "\n";