user input perl radius calc