Communication early stages dating validating radio buttons in perl