use strict;
BEGIN {
   use POSIX qw(uname);
   my ($uname_s, $uname_r)  = (POSIX::uname())[0,2];
   unshift(@INC, "/usr/local/perl/modules/$uname_s/$uname_r" );
}