sub turnOnOff {
	my ($self,$args) = @_;
	
	my $cmd = shift;
	my $telnet = new Net::Telnet ( Timeout=>10, Errmode=>'die');
	my $ssh = Net::SSH::Perl->new("$hostname", debug=>0);
	$ssh->login("$username","$password");
	
	$ssh->cmd($telnet->open($self->{'ipAddress'}));
	$ssh->cmd($telnet->waitfor('/[\$#%:><][\s\b]+$/'));
	$ssh->cmd($telnet->print($loginUser));
	$ssh->cmd($telnet->waitfor('/[\$#%:><][\s\b]+$/'));
	$ssh->cmd($telnet->print($userPW));
	$ssh->cmd($telnet->waitfor('/[\$#%:><][\s\b]+$/'));
	$ssh->cmd($telnet->print("$self->{'strOnOff'} 1"));
	$ssh->cmd($telnet->waitfor('/[\$#%:><][\s\b]+$/'));
	$ssh->cmd($telnet->print("y"));
	$ssh->cmd($telnet->waitfor('/[\$#%:><][\s\b]+$/'));
	$ssh->cmd($telnet->print("logoff"));
	
	return 1;
}