Select Code to Download

use DBI;
use Encode;
...
print("My ustring is now $ustring\n");

#$dbh->disconnect;

Output1:
----------
...
ascii1
ascii1
Unknown encoding 'ascii1' at ... line 22.

Output2:
---------
...
ascii1
ascii1
My ustring is now 1.