calculator in perl