my $radians_wrapped_by_2pi = Math::Trig::rad2rad($radians);

##</code><code>##

use Modern::Perl;
use Math::Trig ':pi';

my $radians = 4.5 * pi;
my $radians_wrapped_by_2pi = Math::Trig::rad2rad($radians);

say 'rad2rad(', $radians, ') = ', $radians_wrapped_by_2pi;

##</code><code>##

 1:49 >perl 502_SoPW.pl
rad2rad(14.1371669411541) = 1.5707963267949

 1:49 >