Thank you! and Ugh.. So I'd have to simultaneously draw the canvas using Tk and draw the image in GD. Are there any other options to display a graph and then save it using one module??

Win32::Gui - no drawing function?
Imager - doesn't spawn a desktop window (like GD)
Magick - Do i really have to force users to install another application?
GD - does not display
Tk - does not save canvas?

The following way should work with Tk (haven't tested it):

use MIME::Base64;
# ... your GD code from above

my $imageData = $image->png;

# save $imageData to file with binmde... well you know that...
open( my $PNG, ">", $imageFilename ) or die ...;
binmode( $PNG );
print $PNG $imageData;
close( $PNG ) or die ...;

# convert $image to tk photo
my $imageData64 = MIME::Base64::encode_base64( $imageData );
my $photo = $mw->Photo(
  -format => 'png',
  -data => $imageData64,
);

# do something with $photo...
[download]

I used a similar way for a little slideshow I wrote...

Best regards,
perl -e "s>>*F>e=>y)\*martinF)stronat)=>print,print v8.8.8.32.11.32"

GraphViz works well for me on Win32, and there's Tk::GraphViz, though I've never used it.

--Solo

--
You said you wanted to be around when I made a mistake; well, this could be it, sweetheart.

I don't think your reply, at Re^2: Using GD on MS Windows , follows either from your original post, nor from the excellent answer, above.

Just what is it that you want to achieve?
Guesses:

• Create an image to be saved as a .png file?
• Draw a graph, live and atop the windows desktop, from some (streaming?) input data?

If the former, you have the answer above, and came close with your adaptation of the original sample code (which could be edited to specify a file write, rather than output to STDPUT which must then be redirected. If the latter, you may which to ppm -s for the various Graph:: modules.

##### build a cpu graph...
$poop = 'CPU - Wait IO data from '.$startdate.' - '.$enddate;
# a fancy title for our graph
 
@data = (\@dateline, \@graphcpu_usr, \@graphcpu_sys, \@graphcpu_wio );
+ 
# this is an array of arrays. The first one is the X axis             
+                                                          

# which is the time, the others are the Y axis
 
my $data = GD::Graph::Data->new() or die GD::Graph::Data->error;
 
$data->copy_from(\@data);                                             
+ 

# this tells the graph to get the data from the data array
my $my_graph = new GD::Graph::area(400,300);                          
+ 

# and this says what type (area) and it's size
$my_graph->set(                                                       
+ 
# and set up all the particulars...
        r_margin => 1,
        x_label => 'Time',
        y_label => 'CPU Utilization',
        title => $poop,
        y_min_value => 0,
        y_tick_number => 8,
        y_label_skip => 1,
        x_ticks => 1,
        x_label_skip => $x_label_skip,
        x_labels_vertical => 1,
        x_label_position => 1/2,
        cumulate => 1,
        transparent => 1,
)or warn $my_graph->error;
 
open (IMG, ">dbcpu.png") or die "Can't open up the dpcpu graph file";
binmode IMG;
$my_graph->set( dclrs => [ qw(lgreen lblue lred) ] );                 
+ 
# here is the colors in the graph
$my_graph->set_legend("usr","sys","wio" );                            
+ 
# and the legend text
$my_graph->set_title_font(GD::Font->MediumBold);
print IMG $my_graph->plot($data)->png();                              
+ 
# and this plots the image out to a png format
close IMG;
[download]

$fr = $mw->Frame(-relief => 'groove', 
                 -borderwidth => 5)->pack(
                  -side => 'left', 
                  -expand => 1 
                );
                                                            

# the canvas has scroll bars and we sized the viewable part at 625x800
$canvas = $fr->Scrolled('Canvas', -height => 625, 
                                  -width  =>800,)->pack(
                                  -side => 'right', 
                                  -expand => 1 
                       );
                                                              

# here we define the cpu graph and where we find it
$dbcpu = $canvas->Photo(-format => 'png', 
 -file => '/home/mjacobs/scripts/perl/dbcpu.png', 
 -palette => '16/16/16');
                                                               

# and this actually puts the image on the canvas
$dbcpu_gr = $canvas->createImage(300,250, 
       -image => $dbcpu, 
       -tags => "dbcpu", 
       -anchor => "center");
[download]