Perl CGI social network