Select Code to Download

$day = "sunday";
$userId= "mary";
...
}

...

use strict;
use warnings;

my $userId= "mary";

...
}

...

#!/usr/bin/perl

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

   eval "use module_$userId qw( %diary ); 1" or die $@;