my $dialog_comingsoon = $main_window->DialogBox( 
				-title   => "COMING SOON");
					
			$dialog_comingsoon->Label(-text=>'Patience.')->pack;
			$dialog_comingsoon->Label(-text=>'This feature will be act			ive in the next release.')->pack; 
			$dialog_comingsoon->Label(-text=>'Thank You.')->pack;