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;