perl normal calculator