print "/server irc.perl.org\n/join #perlde\n";
print "/join #catalyst\n" if $user->{interests}->{perl}->{catalyst};