sub LocalTest {
	my $returnval=0;
	my $msg=SetMessage();
	use Socket;
	use Sys::Hostname;
	my $host = hostname();
	SendMessage( $host, $msg);
	
	print "Did your rescive the message?(y/n): ";
	$key=<STDIN>;
	chomp $key;
		
	if ( $key eq y || $key eq Y ){
		<b>return $returnval;</b>
	}
	else {
		$returnval=1;
		return $returnval;
	}
}