my $name;
  my $real_name;

  sub get_params {
    my $q = new CGI;
    $name = $q->param('user_name');
    $real_name = $q->param('real_name');
  }

  sub print_params {
    print "Name: $name\nReal Name: $realname\n";
  }