BEGIN {
  @INC = ();
  unshift @INC, '.', '/home/user/perl/lib', "/home/user/perl/lib/sun4-solaris"
                if ($^O =~ /solaris/);
}