Select Code to Download

  my $name;
  my $real_name;

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