perl -e 'use Encode;@list = Encode->encodings(":all"); for $schema (@list){print "$schema\n";}'