sub on_join {
	my ($conn, $event) = @_;

	my $nick = $event->{nick};
	if ($nick eq ("xxx" || "yyy")) {
		
		$conn->privmsg("Chanserv", "OP $conn->{channel} $nick");
		print "Auto-Op $nick\n";
		$conn->privmsg($nick, "You have been Auto-Oped by $mynick");
		$conn->me($conn->{channel}, "Auto-Ops $nick");
	}
	$conn->privmsg($conn->{channel}, "Welcome, $nick!")	unless ($nick eq $mynick);
	print "[$mynick] Welcome, $nick!\n"	unless ($nick eq $mynick);
}