#! /usr/bin/perl -T
BEGIN {
  $DEZVAR = $ENV{CRROOTWSDIR};

  if ($CRROOTWSDIR =~ /^([-\/\w.]+)$/) {
    $MAINPATH = $1
  } else {
    die "Invalid path, please check setenv";
  }

  $LIB = "$MAINPATH/cr/cds/comms/x2p";
}

use lib $LIB;

blah;
blah;
blah;