Using tinita's example:

#!/usr/bin/perl

BEGIN {
    $ENV{'REDEFINE'} = 0;
}
    
use autodie;
use common::sense;
use Env::Export qw/:nowarn REDEFINE/;

sub FOO () { 23 }
sub FOO () { 42 }
[download]