my $esm_server = $ENV{'ESM_SERVER'};  die "ESM_SERVER is not set\n" unless defined $esm_server;
  3   die "ESM_SERVER is empty\n" unless( length($esm_server) > 0 );
  4    print "server is $esm_server\n";
  5   my $esm_user   = $ENV{'ESM_DBO'}; die "ESM_USER is not set\n" unless defined $esm_user;
  6   die "ESM_USER is empty\n" unless( length($esm_user) > 0 );
  7  print "user is$esm_user\n";
  8   my $esm_passwd = $ENV{'ESM_DBO_PASSWD'};  die "ESM_PASSWD is not set\n" unless defined $esm_passwd;
  9   die "ESM_PASSWD is empty\n" unless( length($esm_passwd) > 0 );;
 10
 11
 12  use Sybase::CTlib;
 13 require "$ENV{ESM_LIB_PERL}/sybCTlib.pl"; die "Not there" unless $ENV eq "";
 14
 15 my $dbh = Sybase::CTlib ->new( $esm_user,$esm_passwd,$esm_server);
~