sub qu ($) { utf8::upgrade(my $s = $_[0]) ; return $s ; } ;

  show(6, qu "Hello W\xF6rld") ;