Select Code to Download

#! /usr/bin/perl
use warnings;
...
use POSIX qw{ fmod };

say fmod(900719925474099.7, 2147483647.83);