use Net::Telnet::Brcd;

my $sw_name = "192.168.201.252";
my $user = "admin";
my $pass = "password";

my $sw = new Net::Telnet::Brcd;

$sw->connect($sw_name,$user,$pass) or die "\n";

#%wwn_port = $sw->switchShow(-bywwn=>1);

#print %wwn_port;

my @lines = $sw->cmd("switchdisable");

for (@lines)
{
    print "$_\n";
}

print "\n\n\n";