#!/usr/bin/perl -wnl $_=eval();print;