Select Code to Download

package Old;

...
sub page3 { "CGI.pm page3" }

1;

package New;

...
sub page2 { "H::T page2" }       # page 2 was easier than 1 ;)

1;

package Interface;

...
sub page3 { return Old->new()->page3 }

1;

use strict;
use warnings;
...
my $obj = Interface->new;

print $_,$/ for map $obj->$_, qw(index page1 page2 page3);

package Interface;

...
sub DESTROY {}  # good practice - prevents unecessary call to AUTOLOAD

1;