#!/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'));

##</code><code>##

perl -Mredefine script.pl