ken@titan ~
$ cat /home/ken/tmp/pm_11153844_cron_paths/lib/maintain.pl
# standard pragmata
use strict;
use warnings;

# code to get absolute paths
use Cwd 'abs_path';
use File::Basename 'dirname';
my ($BIN_DIR, $LIB_DIR, $TEMPLATE_DIR, $WWW_DIR);
BEGIN {
    $BIN_DIR = dirname abs_path __FILE__;
    $LIB_DIR = abs_path "$BIN_DIR/../lib";
    $TEMPLATE_DIR = abs_path "$BIN_DIR/../template";
    $WWW_DIR = abs_path "$BIN_DIR/../www";
}

# test paths
print "\$BIN_DIR[$BIN_DIR]\n";
print "\$LIB_DIR[$LIB_DIR]\n";
print "\$TEMPLATE_DIR[$TEMPLATE_DIR]\n";
print "\$WWW_DIR[$WWW_DIR]\n";

# test 'Site::Utils' found
use lib $LIB_DIR;
use Site::Utils;
print "Site::Utils version: $Site::Utils::VERSION\n";