use strict;
use warnings;

BEGIN {
  no warnings qw(redefine);
  *CORE::GLOBAL::time = sub { 4 };
}

use subs qw( time );
sub time { 5 }

my $time = time();

1;