Skip to content

Instantly share code, notes, and snippets.

Created Jun 11, 2014
What would you like to do?
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;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment