perl user input calc