use strict;
while (<>) {
    my $res = eval $_;
    if (my $err = $@) {
        warn "Error: $@";
    } else {
        print "'$_' gives $res\n"
    };
};