[- 
use Encode ;
$fdat{test} = "abc!'\"$%&()<>=δφόΔΦάί©" ;
$fdat{utf8} = decode("iso-8859-1", $fdat{test}) ;
$escmodestd = $escmode ;
-]
------------------------------------------------
$epreq -> config -> output_esc_charset = 1 
[- $epreq -> config -> output_esc_charset (1) -]
$escmode = $escmodestd ;
[- $escmode = $escmodestd ; -]
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +]
utf8:
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +]
poststd:  
postutf8: 
$escmode = 8 ;
[- $escmode = 8 ; -]
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +]
utf8:
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +]
$escmode = 2 ;
[- $escmode = 2 ; -]
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +]
utf8:
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +]
------------------------------------------------
$epreq -> config -> output_esc_charset = 2 
[- $epreq -> config -> output_esc_charset (2) -]
$escmode = $escmodestd ;
[- $escmode = $escmodestd ; -]
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +]
utf8:
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +]
poststd:  
postutf8: 
$escmode = 8 ;
[- $escmode = 8 ; -]
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +]
utf8:
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +]
$escmode = 2 ;
[- $escmode = 2 ; -]
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +]
utf8:
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +]
------------------------------------------------
$epreq -> config -> output_esc_charset = 0 
[- $epreq -> config -> output_esc_charset (0) -]
$escmode = $escmodestd ;
[- $escmode = $escmodestd ; -]
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +]
utf8:
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +]
poststd:  
postutf8: 
$escmode = 8 ;
[- $escmode = 8 ; -]
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +]
utf8:
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +]
$escmode = 2 ;
[- $escmode = 2 ; -]
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{test} +]
utf8:
abc!"$%&()<>=δφόΔΦάί -> [+ $fdat{utf8} +]
------------------------------------------------
$epreq -> config -> output_esc_charset = 1 
[- $epreq -> config -> output_esc_charset (1) -]
$escmode = $escmodestd ;
[- $escmode = $escmodestd ; -]