use Net::Telnet();
package Switch;

sub new {
	my $class = shift;
	my $location = shift;
	my $ip = shift;
	my $self = {};
	bless $self, $class;
	return $self;
}

1;

##</code><code>##

use Switch;
use strict;
use warnings;
my $switch = Switch -> new();