use L_Switch;
use strict;
use warnings;

my $utility = L_Utility -> new();

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