Select Code to Download

# Your SQL here.
while (my ($timestamp, $field1, $field2, $field3)=$sth->fetchrow_array
+() {
...
    push @data2, $field2;
    push @data3, $field3;
}

    my $graph = GD::Graph::mixed->new($x_size, $height);
    my @data=([@timeline],[@data1],[@data2],[@data3]);
...
    binmode STDOUT;
    print $gd->jpeg(100);
}