BEGIN {
    if(  ! $ENV{PERLIO}  ) {
        $ENV{PERLIO}= ":utf8";
        exec $^X, $0, @ARGV;
    }
}