#!/usr/bin/perl

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