#~    $image = $phwin->Photo(-file => $pic_file );
   $image->read($pic_file, -shrink  );