perl -le'print eval shift'