SRB:Perl connect.pl

#!/usr/bin/perl
#
# test script for perl srb module
#
# uncomment to use specified values instead of ~/.srb/.MdasEnv 
#   and ~/.srb/.MdasAuth
#$mcat = 'srb.sdsc.edu';
#$port = 6618;
#$password = 'PASSWORD';
#$user = 'srbuser';
#$domain = 'user_domain';
#$authscheme = 'ENCRYPT1';
#$serverDn = '';

use srbcore;
#
# Open Connection to MCAT using srbConnect
#
my $conn = srbcore::srbConnect($mcat,$port,$password,$user,$domain,$authscheme,$serverDn);
#
# Get status of connection using clStatus
#  returns 0 upon success, standard srb error otherwise
#
my $connstatus = srbcore::clStatus($conn);
if ($connstatus == 0) {
  print "Connection Successful\n";
} else { 
  print "Connection Failed: $connstatus ".srbcore::clErrorMessage($conn)."\n";
#
# Use srbError to find thrown error message
#
  print srbcore::srbError($connstatus,$srbcore::SRB_LONG_MSG|$srbcore::SRB_RCMD_ACTION);
}
#
# Drop/Reconnect using clReset
#
srbcore::clReset($conn);
if ($connstatus == 0) {
  print "Connection Reset Successful\n";
} else { 
  print "Connection Failed: $connstatus ".srbcore::clErrorMessage($conn)."\n";
  print srbcore::srbError($connstatus,$srbcore::SRB_LONG_MSG|$srbcore::SRB_RCMD_ACTION);
}
#
# close connection to MCAT
#
srbcore::clFinish($conn);