#!/bin/bash

MATH_ARG="$@"

if [ -z "$MATH_ARG" ]; then
  while read inpt; do
    MATH_ARG="$inpt"
    break
  done
fi

eval -- perl -e \'print\("$MATH_ARG"\)\'