Select Code to Download

my ($r, $rad, $twopi, $sig, $pi, $a0, $c0);
my (@radii, @rads, @sigs);

@rads = ();
@sigs = ();