use strict;
use warnings;
use Interface;

my $obj = Interface->new;

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