my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [     $clean_total,    $spam_total,    $virus_total,    $banned_total,    $badheader_total,  $reject_total],
]) or die GD::Graph::Data->error;