get '/' => sub {
	my $self = shift;
	$channel = channeld($self->param('channel'));
	$self->render('index', channel => $channel);
};
sub channeld {
	my ($channel)  = @_;
	if (defined($channel)) {
		$channel = $channel;
	}else{
		$channel = '#maxson';
	}
	return $channel;
}
$irc->send_srv(JOIN => $channel);