my ($radius)= ;   # empty assignment? :) delete the =

$radius = <STDIN>;