use POSIX qw(uname);
use lib sprintf "/usr/local/perl/modules/%s/%s", (uname)[0,2];