A Perl widget library for the web ...

He ended up with IWL which is, in Viktors words:

    basically a graphical toolkit, or widget library, much like Gtk+ or the ETK library for enlightenment. The main goal of this library is to create a full blown RIA, without the need to write html in your code. When I started working on it roughly a year and a half ago, there was nothing similar existed for Perl. By using the library where I work, it has so far mostly achieved its main objective (and has also proven to be an excellent subject for my diploma thesis :))

If you are a Perl developer who prefers writing apps in a toolkit style like below, then IWL may be fore you:
PLAIN TEXT
PERL:

   1.
      
   2.
          use IWL;
   3.
        
   4.
          # create the main container, and a few widgets
   5.
          my $page = IWL::Page->new;
   6.
          my $frame = IWL::Frame->new;
   7.
          my $iconbox = IWL::Iconbox->new
   8.
              (width => 800px, height => 600px);
   9.
          my $button = IWL::Button->newFromStock
  10.
              (IWL_STOCK_CANCEL);
  11.
          my %some_icon_info = ("foo.jpg" => foo, "bar.png" => ar);
  12.
      
  13.
          # Setting up the icons and adding them to the iconbox
  14.
          foreach (keys %some_icon_info) {
  15.
              my $icon = IWL::Iconbox::Icon->new;
  16.
              $icon->setImage($_);
  17.
              $icon->setText($some_icon_info{$_});
  18.
              $icon->setDimensions(64px, 64px);
  19.
              $icon->setSelected(1) if $_ == isomething;
  20.
              $iconbox->appendIcon($icon);
  21.
          }
  22.
      
  23.
          $page->appendMetaEquiv("Cache-control" => "no-cache");
  24.
          $frame->setLabel("Frame label");
  25.
          # Adding the children to their parents
  26.
          $frame->appendChild($iconbox);
  27.
          $frame->appendChild($button);
  28.
          $page->appendChild($frame);
  29.
      
  30.
          # Finally printing the page
  31.
          $page->print;
  32.
 source: ajaxian    

 View Full Story.