# plugh.pl
my @module = caller;
my @program = caller(1);
open X, '>', "/module/logger/base/path/$module[1]/$program[1]" 
  or die "Can't log module $module[1] use by program $program[1]\nReason: $!\n";
print X time(), "\n"; # content doesn't really matter... whatever you like
close X;

##</code><code>##

# MyModule
 . . .
require "plugh.pl";
 . . .