#!/usr/bin/perl

$| = 1; # make output unbuffered

prompt();

while(<STDIN>) {     # read 1 line...
    eval $_;         # ...doit...
    warn $@ if $@;   # ...complain if error
    prompt();        # ...and print prompt;
} 

sub prompt { print "\n;# perl > " }

__END__