Select Code to Download

my $old_method;
BEGIN {
...
    $old_method->(@_);
    print "After\n";
};

package MyFakeCGI;
use CGI;
...
sub DESTROY {};

1;