#!/usr/local/bin/perl

while (<>) {
    print eval $_;
    print "\n";
    die $@ if $@;
}