#!/usr/bin/perl
## untested
use warnings;
use strict;

my ($g_commonMount, $g_moduleDir);
BEGIN {
  $g_commonMount = "/common_mount";
  $g_moduleDir = "$g_commonMount/include";
}
use lib $g_moduleDir;

sub file_watcher {
  while (1) {
    sleep 10, next unless -d $g_moduleDir;

    use autouse 'foo' => qw/foo/;
    foo;
  }
}

file_watcher;