use Cwd;
use File::Basename;

BEGIN {
  my $dir = dirname($0);
  my $path;
  if ($dir =~ /^\//) {
    #--absolute path
    $path = $dir;
  } elsif ($dir eq ".") {
    #-- relative, current dir
    $path = getcwd();
  } else {
    #-- relative, but not from current dir
    $dir =~ s/^\.\///;
    $path = getcwd()."/$dir";
  }
  unshift(@INC, "$path/lib");
  unshift(@INC, "$path/lib-perl");
  unshift(@INC, "$path/lib-perl/sun4-solaris-64int");
}

##</code><code>##

use Cwd qw( realpath ); 
use File::Basename;

my $script_dir; BEGIN { $script_dir = dirname(realpath($0)); }

use lib "$script_dir/lib", "$script_dir/lib-perl";

##</code><code>##

use File::Basename;
use Cwd;

BEGIN {
  my $dir = dirname($0);
  my $path;
  if ($dir =~ /^\//) {
    #--absolute path
    $path = $dir;
  } elsif ($dir eq ".") {
    #-- relative, current dir
    $path = getcwd();
  } else {
    #-- relative, but not from current dir
    $dir =~ s/^\.\///;
    $path = getcwd()."/$dir";
  }
  unshift(@INC, "$path/lib");
  unshift(@INC, "$path/lib-perl");
}

##</code><code>##

defined($ntCapabilities{$type}{'SW_PAR'}).

##</code><code>##

if (Capability::is_capable(...)) {
    ...
}