pmichaud@orange:~/parrot/trunk$ ./parrot_config revision
48985
pmichaud@orange:~/parrot/trunk$ cat z.pir
.sub 'main' :main
    $S0 = utf8:unicode:""
    $I0 = encoding $S0
    $S1 = encodingname $I0
    say $S1
.end

pmichaud@orange:~/parrot/trunk$ ./parrot -o z.pbc z.pir
pmichaud@orange:~/parrot/trunk$ ./parrot z.pir
utf8
pmichaud@orange:~/parrot/trunk$ ./parrot z.pbc
ascii
pmichaud@orange:~/parrot/trunk$