Skip to content

Instantly share code, notes, and snippets.

@tokuhirom
Created August 27, 2008 05:27
Show Gist options
  • Save tokuhirom/7427 to your computer and use it in GitHub Desktop.
Save tokuhirom/7427 to your computer and use it in GitHub Desktop.
use strict;
use warnings;
use Encode;
use IO::Prompt qw/prompt/;
use Perl6::Say;
while (my $line = prompt('> ')) {
say encode_utf8 decode('utf-7', $line);
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment