ainame

#!/usr/bin/env perl
use warnings;
use Term::ReadLine;
use 5.10.0;
use Data::Printer;

my $term = Term::ReadLine->new('REPL');
my $prompt = '$ ';
while(defined ($_ = $term->readline($prompt))){
    chomp;