sub register {

  $username = $query->param('username');
  $email = $query->param('email');
  $name = $query->param('name');
  $url = $query->param('url');

  my $dbname = 'la';
  my $dbhost = 'localhost';

  my $dsn = "DBI:mysql:database=$dbname;host=$dbhost";
  my $dbh=DBI->connect($dsn,"la","password");

  if (!defined($dbh)) {
    print DBI->errmsg;
    print "-" x 25;
    exit;
  }

  my $time = strftime("%Y-%m-%d %I:%M:%S", localtime);

  $query = qq(insert into members (username, password, email, name, url, date) Values ('$username', '$password', '$email', '$name', '$url', '$time'));
  $sth = $dbh->prepare($query);
  $sth->execute;
  $dbh->disconnect;
  print "Done";
  exit;
}