# Spacer between the frame 1 border and frame2 border
   $spacer1 = $frame1 ->Frame(-relief =>'flat', -borderwidth => $frame_borderwidth,
				   -background => $mainframes_background, -foreground => $frameforeground,
				   -height => 10)
			   ->pack(-padx => 8, -pady => 0, -ipadx => 0, -ipady => 0,
				  -fill => 'x', -side => 'top');