#!/usr/local/bin/perl -w
# perl-eval-shell.pl -- Eine primitive Perl-Shell mit eval().

sub prompt {
    my $prompt_text = shift;
    my $code;

    ++$nprompt;
    print "$prompt_text <$nprompt>? ";
    $code = <STDIN>; chomp($code) if defined $code;
    return $code;
}

for (my $code=prompt("code (CTRL-D to stop)");
     defined $code;
     $code=prompt("code")) {
    eval $code;
}