Write a test cgi for that part and use Dumper to inspect the result. You may see line endings \n on your grep results

#!/usr/bin/perl
use strict;
use warnings;

use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser'; # only use for testing
use GD::Graph;
use Data::Dumper;
 
my $clean_total  = qx(sudo grep -Ec 'amavis.*Passed CLEAN' /var/log/ma
+illog);
my $spam_total   = qx(sudo grep -Ec 'amavis.*Blocked SPAM' /var/log/ma
+illog);
my $virus_total  = qx(sudo grep -Ec 'amavis.*Blocked INFECTED' /var/lo
+g/maillog);
my $banned_total = qx(sudo grep -Ec 'amavis.*Blocked BANNED' /var/log/
+maillog); 
my $badheader_total = qx(sudo grep -Ec 'amavis.*BAD-HEADER-' /var/log/
+maillog);
my $reject_total = qx(sudo grep -c 'reject' /var/log/maillog); 

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

print header('text/plain');
print Dumper $data;
[download]

your code shows in this way.

$VAR1 = bless( [
                 [
                   'Cleaned',
                   'Spam',
                   'Virus',
                   'Banned',
                   'BadHeader',
                   'Rejected'
                 ],
                 [
                   '10
',
                   '36
',
                   '0
',
                   '0
',
                   '0
',
                   '975
'
                 ]
               ], 'GD::Graph::Data' );
[download]

when I added below code instead. it shows in this way. It works as expected

my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [10, 36, 0, 0, 0, 974],
]) or die GD::Graph::Data->error; 



$VAR1 = bless( [
                 [
                   'Cleaned',
                   'Spam',
                   'Virus',
                   'Banned',
                   'BadHeader',
                   'Rejected'
                 ],
                 [
                   10,
                   36,
                   0,
                   0,
                   0,
                   974
                 ]
               ], 'GD::Graph::Data' );
[download]

I think grep results with variables has UNWANTED Stuffs. How can avoid them? I tried, but no success. Pls discard my last mail since it has formatting issues.

You could chomp($clean_total) all the values, but I would try to avoid shelling out to grep and just use perl.

#!/usr/bin/perl
use strict;
use warnings;

use CGI qw(:standard);
use GD::Graph;
use CGI::Carp 'fatalsToBrowser';
use Data::Dumper;

my $logfile = '/var/log/maillog';
open $fh, '<', $logfile or die "Could not open $logfile : $!";
my %count=();

while (<$fh>){
  if (/amavis.*(Passed|Blocked) (CLEAN|SPAM|INFECTED|BANNED)/){
    ++$count{$2};
  } elsif (/amavis.*(BAD-HEADER)-/) {
    ++$count{$1};
  } elsif (/reject/){
    ++$count{'REJECTED'};
  }
}
close $fh;  
my @data = map{ $count{$_} || 0 } qw(CLEAN SPAM INFECTED BANNED BAD-HE
+ADER REJECTED);

my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [@data],
]) or die GD::Graph::Data->error; 


print header('text/plain');
print Dumper $data;
[download]

poj

Pls discard my last mail since it has formatting issues.

It was good of you to notice and to create a new post to correct them. However, it would generally be better in future just to fix the original post and thus avoid duplication. See How do I change/delete my post? for the details.

Hi, Many thanks for your code. I cheeked your code. it gives below output to my web browser $VAR1 = bless( [ 'Cleaned', 'Spam', 'Virus', 'Banned', 'BadHeader', 'Rejected' , '10 ', '36 ', '0 ', '0 ', '0 ', '975 ' ], 'GD::Graph::Data' );

Then, I wrote another code by manually adding data to it in this ways

 
#!/usr/bin/perl
use strict;
use warnings;

use CGI qw(:standard);
use CGI::Carp 'fatalsToBrowser'; # only use for testing
use GD::Graph;
use Data::Dumper;
 
my $clean_total  = qx(sudo grep -Ec 'amavis.*Passed CLEAN' /var/log/ma
+illog);
my $spam_total   = qx(sudo grep -Ec 'amavis.*Blocked SPAM' /var/log/ma
+illog);
my $virus_total  = qx(sudo grep -Ec 'amavis.*Blocked INFECTED' /var/lo
+g/maillog);
my $banned_total = qx(sudo grep -Ec 'amavis.*Blocked BANNED' /var/log/
+maillog); 
my $badheader_total = qx(sudo grep -Ec 'amavis.*BAD-HEADER-' /var/log/
+maillog);
my $reject_total = qx(sudo grep -c 'reject' /var/log/maillog); 

my $data = GD::Graph::Data->new([
    ["Cleaned","Spam","Virus","Banned","BadHeader","Rejected"],
    [10, 36, 0, 0, 0, 974],
]) or die GD::Graph::Data->error; 

print header('text/plain');
print Dumper $data;
[download]

Then, it gives below output to my web browser

$VAR1 = bless( [ 'Cleaned', 'Spam', 'Virus', 'Banned', 'BadHeader', 'Rejected' , 10, 36, 0, 0, 0, 974 ], 'GD::Graph::Data' );

The above works as expected. But I need to go with variables. Could you pls help me to write my grep results with variables properly? I tried but I still can't get it done? I think I will have to avoid line break..