{
    my($x,$y) = $paned_win->sash( coord  => 0) ;
    $paned_win->sash( place => 0, $x + 400, $y );
}