The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Tk - a graphical user interface toolkit for Perl

SYNOPSIS

    use Tk;
    $top = new MainWindow;
    MainLoop;

DESCRIPTION

The Perl/Tk manual is split up into a number of sections:

END

  my $no_link = 0;
  foreach my $cat (@cat)
   {
    $no_link = ($cat =~ /C Programming/);
    print POD "=head2 $cat\n\n=over 4\n\n";
    foreach my $file (sort { lc($a) cmp lc($b) } @{$cat{$cat}})
     {
      my($base) = fileparse($file, ".(pod|pm)");
      if ($no_link)
       {
        print POD "=item *\n\n$base\n\n";
       }
      else
       {
        my $mod = "Tk::" . $base;
        print POD "=item *\n\nL<$mod|$mod>\n\n";
       }
     }
    print POD "=back\n\n";
   }

  print POD <<END;

AUTHOR

Nick Ing-Simmons

SEE ALSO

perl(1), wish(1).