use Encode;
  print join ('\n', Encode->encodings());