sub  mp3{
  $canvas1 ->packForget();
  my $canvas1 = $frame1 ->Canvas(-width  => '253',
                        -height => '477',
                       );
  $canvas1->pack;