sub  mp3{
   $canvas1 ->packForget();
   my $canvas1 = $frame1 ->Canvas(-width  => '253',
                         -height => '477',
                        );
   $canvas1->pack;
   my $file = 'image_mp3.gif';
   my $img =
    $canvas1->Photo( 'imggif',
                    -file => $file );

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