view release on metacpan or  search on metacpan

README  view on Meta::CPAN

  # COUNT THE NUMBER OF HITS FOR A SPECIFIED PAGE IN A WEB LOG
  #
  my $hits = adTie( 'Weblog', 'access.log');
  print adCount( $hits , request => 'mypage.html' );

  # CREATE A CGI POP-UP MENU FROM A LISTING
  # OF THE VALUES OF A TABLE COLUMN
  #
  my $game = adTie( 'Pipe','games.db' );
  my @players  = adColumn( $game, 'player' );
  print CGI::popup_menu( 'players', \@players );

  # SELECT OR MODIFY MULTIPLE ROWS BASED ON COMPLEX CRITERIA
  # (this deletes all North American males over age 30)
  #
  my $data = adTie( 'Tab', 'mydb.tab');
  delete $data->{{ country => qr/us|mx|ca/,
                   gender  => 'eq m',
                   age     => '> 30',
                }};