==========================
1	#!/usr/bin/perl
2
3	$day = "sunday";	# This input is expected from the user while running.
4	$userId= "mary";	# This input is expected from the user while running.
5	
6	BEGIN  {
7	push (@INC, "./dir_$day");
8	}
9
10	$tmp = "module_".$userId;
11
12	use $tmp qw(%diary);   	# %diary is a hash in the perl module ./dir_sunday/module_mary.pm
13	*diary = \ %diary::diary;
14
15	<Program body>
===================================