Select Code to Download

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

perl -Mredefine script.pl