root@sam:/home/xxxx/yyyy.com/mod-perl> cat startup.pl
use strict;
use lib qw(/home/xxxx/yyyy.com/mod-perl);

1;
root@sam:/home/xxxx/yyyy.com/mod-perl>