my $mw = new MainWindow(-height => 600,-width => 600 ,-title=>"Message"); # Main Window

$mw->overrideredirect(1);    # Remove window
$mw->geometry('+700+650');

my $frm_name = $mw -> Frame() -> pack();
my $lab;
if ($ARGV[0] eq "-A")
{
$lab = $frm_name -> Label(
	-text=>"D[$ARGV[1]]\nClick 'Ok' To start the Process",
	-anchor => 'center',-height => 5,-width=> 55 ,
	-foreground => 'blue',
) -> pack();

$mw -> Button(-text=>"Ok", -command =>sub { 
	 my $status = $mw -> messageBox(-message=>"Do u want to start the process..?",-type=>'yesno',);
	 if($status eq "Yes")
	 {
		 print "Yes";
		 exit;
	 }else{
		;
	 }
	}
) -> pack(-side =>
	'right',-expand => 0); 

$mw -> Button(-text=>"Cancel", -command =>sub { print"cancel"; exit;}) -> pack(-side
	=>'right',-expand => 0 );

}


MainLoop;