package Interface;

use Old;
use New;

sub new {
   my ($class,@arg) = @_;
   my $self = {};
   return bless $self,$class;
}

sub index { return New->new()->index }
sub page1 { return Old->new()->page1 }
sub page2 { return New->new()->page2 }
sub page3 { return Old->new()->page3 }

1;