You could use a wrapper around the main script

#!/usr/bin/perl
use redefine;
use File::Basename        qw( dirname ); 
use File::Spec::Functions qw( rel2abs catfile );
do(catfile(dirname(rel2abs($0)), 'real_script.pl'));
[download]

Or use -M

perl -Mredefine script.pl
[download]