utf8::downgrade($s, 1)
    or croak("Wide characters in foo argument");