my $frame1 = $main->Frame( -relief => "groove",
   -borderwidth => 5);
   $frame1->pack( -fill => "both",
   -side => "top");
   
   my $canvas1 = $frame1 ->Canvas(-width  => '253',
                         -height => '477',
                        );
   $canvas1->pack;
   my $file = 'image.gif';
   my $img =
    $canvas1->Photo( 'imggif',
                    -file => $file );

   $canvas1->create( 'image',0,0,
                    '-anchor' => 'nw',
                    '-image'  => $img,
                     );
....
...                       
sub tel{
   my $canvas2 = $frame1 ->Canvas(-width  => '253',
                         -height => '477',
                        );
   $canvas2->pack;
   my $file = 'image_tel.gif';
   my $img =
    $canvas2->Photo( 'imggif',
                    -file => $file );

   $canvas2->create( 'image',0,0,
                    '-anchor' => 'nw',
                    '-image'  => $img,
                     );
 }