use Tk;
my $mw = new MainWindow(-background=>'Gray');
 $mw->geometry("1400x800");
 $mw ->optionAdd('*background','Gray');
 $wb[0] = $mw->Radiobutton(
    -variable => \$f,
    -command  => \&toclink,
    -text     => 'TOC LINK',
    -font => "r18",
     -width       => 17,
     -foreground  => 'black',
    -value => 1)->pack(-side=> 'top',-anchor=>'w',)->place(-relx =>0.0,-rely =>0.20);

$wb[1] = $mw->Radiobutton(
    -variable => \$chap_c,
    -command  => \&chapterlink,
    -text     => 'CHAPTER LINK',
    -font => "r18",
     -width       => 17,
     -foreground  => 'black',
    -value => 1)->pack(-side=> 'top',-anchor=>'w',)->place(-relx =>0.015,-rely =>0.25);

$wb[2] = $mw->Radiobutton(
    -variable => \$file,
    -command  => sub {$flag =3;},
    -text     => 'FIGURE LINK',
    -font => "r18",
     -width       => 17,
     -foreground  => 'black',
    -value    => 'FIGURE LINK')->pack(
    -side     => 'top',
    -anchor   => 'w',)->place(-relx =>0.007,
      -rely =>0.30);
      
MainLoop();
sub toclink()
{
$frm_name = $mw -> Frame(-background => 'DarkGray',-relief => 'sunken')->pack(-ipadx => 330,-ipady =>0, -side => "right", -fill => "y");
$frm_name->Label(-text =>"Do You Want Give Input Styles: ",-font => 'Verdana 10 bold',-foreground  => 'dark red',-background => 'DarkGray',-height => 1,-width =>28) -> pack( )->place(
      -relx =>0.02,
      -rely =>0.08);

$frm_name->Button(-foreground  => 'dark red',-text => "yes",-font => 'Verdana 8 bold', -height => 1,-width => 10,-background => 'DarkGray',-command => \&enable) -> pack ( )->place(
    -relx =>0.43,
    -rely =>0.08);

$frm_name->Button(-foreground  => 'dark red',-text => "No",-font => 'Verdana 8 bold', -height => 1,-width => 10,-background => 'DarkGray',-command => \&disable) -> pack ( )->place(
    -relx =>0.57,
    -rely =>0.08);
    }
    
    sub chapterlink()
{
 $frme_window = $mw -> Frame(-background => 'DarkGray',-relief => 'sunken')->pack(-ipadx => 330,-ipady =>0, -side => "right", -fill => "y");
$butn =$frme_window->Label(-text =>'CHAPTER LINK  ',-font => 'Verdana 15 bold',-foreground  => 'dark red', -background => 'DarkGray',-height => 1,-width =>23) -> pack( )->place(
      -relx =>0.3,
      -rely =>0.1);

$labl = $frme_window->Label(-text =>"Chapter Files ",-font => 'Verdana 10 bold',-foreground  => 'dark red',-background => 'DarkGray',-height => 1,-width =>15) -> pack( )->place(
      -relx =>0.01,
      -rely =>0.30);

$path_text6 = $frme_window->Entry(-textvariable => \$def_path1,-font => 'Verdana 8 bold',-width => 35,-background =>'white')->pack(-expand => 1)->place(-relx => 0.20, -rely => 0.3);

 $path_butn1 = $frme_window->Button(-foreground  => 'dark red',-text => "Browse",-font => 'Verdana 8 bold', -height => 1,-width => 10,-command => \&browsecl) -> pack ( )->place(
     -relx =>0.65,
     -rely =>0.3);

 $path_buttn2 = $frme_window->Button(-foreground  => 'dark red',-text => "Submit",-font => 'Verdana 8 bold', -height => 1,-width => 10,-command => \&submitcl) -> pack ( )->place(
     -relx =>0.80,
     -rely =>0.3);
     }