Select Code to Download

sub openDB {
  my $return;
  # Input argument: [string(DB Server hostname), String(Database name 
+to open)]
...
    return 0;
  }
}

sub openDATASOURCE{
  print DEBUGFILE "Entering sub openDATASOURCE\n" if ($DEBUG);
  my $socketInfo=$ipPort{$socketName};
...
    open (DATASOURCE, "<$namedPipe") or die "Couldn't open $namedPipe:
+ $!\n";
  }
}

sub doSQL {
  print DEBUGFILE "Entering sub doSQL\n" if ($DEBUG);
  my (@localArray, $sqlStatement, $size)=();
...
  }
  print DEBUGFILE "$sqlStatement\n" if $DEBUG;
}