Default nickname to $nick

log.pl

@@ -14,7 +14,7 @@
 my $server = 'irc.perl.org';
 get '/' => sub {
 	my $self = shift;
-	$nick = $self->param('nick') || "guest$$";
+	$nick = $self->param('nick') || $nick;
 	$channel = $self->param('channel') || $channel;
 	$self->stash(nick => $nick);
 	$self->render('index', channel =>$channel);