#Begin telnet access test and display results
	$telnet = Net::Telnet->new(Timeout => 10, Errmode => "return");
	if ($telnet->open($tsip)) {
		$| = 1;
		print '<TD align=center bgcolor=#ff0000>Granted</TD>';
		$| = 0;
		$tstelnettest = 1;
	}
	else {
		$| = 1;
		print '<TD align=center bgcolor=#00ff00>Denied</TD>';
		$| = 0;
		$tstelnettest = 0;
	}
	$telnet->close;
	#Begin SSH access test and display results
	if ($ssh = Net::SSH::Perl->new("$tsip")) {
		print '<TD align=center bgcolor=#00FF00>Granted</TD>';
		$tssshtest = 1;
	}
	else {
		print '<TD align=center bgcolor=#FF0000>Denied</TD>';
		$tssshtest = 0;
	}