package BeginTest;

use strict;
use warnings;

my @ROUTINES = qw(echo);

BEGIN {
   for my $sub (@ROUTINES) {
      no strict 'refs';
      *{"$sub"} = sub { shift if $_[0] eq __PACKAGE__; print $_[0]; };
   }
}

1;