#!/usr/bin/perl -w

use Net::Telnet;

$t = new Net::Telnet(Timeout => 2810,
                         Prompt  => '/%/',
                         Host    => '10.201.157.22' );

$t->login( "control" );
{
        $t->cmd( "set airlink state disabled
write
reboot" );
}
$t->close;
[download]

2018-09-28 Athanasius added code tags

Comment on Re: run command on multiple hosts Download Code