Select Code to Download

#!/usr/bin/env perl

...
        next;
    }
}

$ ./pm_1216483_loop_qanda.pl
Type radius (>=0) or just hit Return to exit.
...
Invalid radius [load of rubbish]. Try again.
Radius: 
$