#!perl -lp
$_=eval