#use strict;
use warnings;
use Term::ReadLine;

my $prompt = "prompt> ";
my $prog = Term::ReadLine->new('Script');
$prog->ornaments(0);

while (defined (my $cmd = $prog->readline($prompt))) {
    chomp $cmd;

    # nothing
    if ($cmd =~ /^\s*$/)        { next }
    # exit
    if ($cmd =~ /^\s*exit\s*$/) { last }

    # execute
    eval $cmd;
    warn $@ if $@;

    print "\n"
}

sub command {
    print "Special command";
}