C:\>perl -MPDL -E "srand(3); say rand();"
0.422170424674736

C:\>perl -MPDL -E "srand(3); say rand();"
0.000277820349769087

##</code><code>##

package OverRider;
use strict;
use warnings;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(sqrt);

our $VERSION = '0.01';

sub sqrt {
  return sprintf "%.7g", $_[0] ** 0.5;
}
1;

##</code><code>##

D:\>perl -Mstrict -Mwarnings -MOverRider -le "print sqrt(2); print CORE::sqrt(2);"
1.414214
1.4142135623731