F:\>perl test_object_creation.pl
QUERY: [utf8]
QUERY2: [euc-jp]
Done