use Tk; 
use Tk::JPEG; 
use GD::Graph::lines3d; 
use strict; 

my $mw = new MainWindow; 

my @data = ( 
   ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"], 
   [ 1203,  3500,  3973,  2859,  3012,  3423,  1230] ); 

my $graph = new GD::Graph::lines3d(100, 100); 
$graph->set( 
   x_label           => 'Day', 
   y_label           => 'Hits', 
   title             => 'Summary', ); 

my $gd = $graph->plot(\@data); 

# Works 
my $a = $mw->Photo('img1', -format=>'JPEG', -file=>"test.jpg"); 

# Doesn't work (couldn't recognize image data)
#my $b = $mw->Photo('img2', -format=>'JPEG', -data=>$gd->jpeg); 

# Works - writes image to file (and it is the graph!)
open(IMG, '>abc123.jpeg') or die $!; 
binmode IMG; 
print IMG $gd->jpeg; 
close(IMG); 

# Doesn't work, (couldn't recognize image data)
#$mw->Label(-image=>$gd->jpeg) 
#           ->pack(-fill=>'both'); 

# Works 
$mw->Label(-image=>'img1') 
          ->pack(-fill=>'both'); 

MainLoop;