$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");