Select Code to Download

use Net::Telnet();
use strict;
...
}

1;

package L_Switch::L_Veda;
require L_Switch;
...
}

1;

use L_Switch;
use strict;
...
my $switch = L_Switch -> new("", '127.0.0.1', "", "Veda");
$switch -> login();
print $switch -> getFullInfo();