plainblack

use lib "/data/WebGUI/lib";
use strict;
use Getopt::Long;
use WebGUI::Session;
use Time::HiRes;


foreach my $libDir ( readLines( "/data/WebGUI/sbin/preload.custom" ) ) {
    if ( !-d $libDir ) {
        warn "WARNING: Not adding lib directory '$libDir' from /data/WebGUI/sbin/preload.custom: Directory does not exist.\n";

plainblack

my $sql = "select email FROM users;";

@emails =  $dbh->buildArray($sql);
my $count = 0;
foreach $email (@emails)
{
        $count++;
        if ($count == 1){
                $g = $email;
        }else{