#!/usr/bin/perl

use strict;
use warnings;

BEGIN {
   my $day    = "sunday";
   my $userId = "mary";

   push (@INC, "./dir_$day");

   eval "use module_$userId qw( ); 1" or die $@;
   *diary = \%diary::diary;
}