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' );