#!/usr/bin/perl -p
BEGIN {
	$expr = shift;
	die "usage: $0 expression" if @ARGV;
}
chomp;
$_ = eval($expr) . "\n";