alias  calc  perl -e 'print  (!*) ; '