Select Code to Download

sub jibe {
  my($s,$t) = @_;
  my $r = join('', (is_utf8($s)?$s:decode('utf8',$s)), (is_utf8($t)?$t
+:decode('utf8',$t)));
  return $r;
}

my $cn = jibe(jibe($givenname," "),$sn);