encode_utf8しまくるやつ

encode.pl

use strict;
use warnings;
use Encode qw(encode_utf8);
use Time::HiRes qw/usleep/;

my ($value) = @ARGV;

while(1) {
    print "$value\n";
    usleep 100000;
    $value = encode_utf8 $value;
}