gistfile1.perl

pmichaud@orange:~/rakudo$ cat x.pir
.loadlib 'io_ops'

.sub 'main'
    $P0 = open 'unixdict.txt', 'r'
    $P0.'encoding'('utf8')
    $S0 = $P0.'readall'()
    $P0.'close'()
    $I0 = length $S0
    say $I0
.end

pmichaud@orange:~/rakudo$ time parrot_install/bin/parrot x.pir
206403

real	0m2.327s
user	0m2.310s
sys	0m0.020s
pmichaud@orange:~/rakudo$ diff x.pir y.pir
3a4
>     load_bytecode 'perl6.pbc'
pmichaud@orange:~/rakudo$ time parrot_install/bin/parrot y.pir
206403

real	0m22.983s
user	0m22.380s
sys	0m0.160s
pmichaud@orange:~/rakudo$