#
   return $rarray ; # Reference to the array
#
}
#
#######################################################
#                     Variables                       #
#######################################################
#
my $to       = 'ronniec@it.aberdeen.net.uk' ;
my $from     = 'Buckethead' ;
my $logfile  = 'xxrc_test_DBI_special.log' ;
my $DB_name  = 'isw-test' ;
my $result   = 0 ;
my $count    = 0 ;
my $response = () ;
#
#####################################
#        mail_log variables.        #
#####################################
#
my $script              = 'chk_cals' ;
my $mail_msg            = 0 ;
my $null                = "none" ;
my $subject             = "Script $script completion details" ;
my $msg                 = "See attachment for completions details" ;
my $text                = "\tUnable to write the following to $logfile :-\n\n" ;
my $row                 = undef ;
#
print "\n\t<************ SOR $0 ***************>\n" ;
#
$response = &chk_cals("$to","$from","$logfile","$DB_name") ;
#
print "\n\tBetcha dinna c this min - $$response[0]\n" ;
#