Using CGI.pm for the Cosmids Script

  #!/usr/bin/perl -w
  # file: process_cosmids2.pl

  use strict;
  use CGI ':standard';

  my $COSMIDS = '/net/share/cgi/cosmids.txt';
  my $URL     = 'http://www.wormbase.org/db/get?class=Sequence;name=';

  open (COS,$COSMIDS) or die "Can't open cosmids file: $!\n";
  my @list_items;
  while (my $cosmid = <COS>) {
     chomp $cosmid;
     push @list_items,a({-href=>"$URL$cosmid"},$cosmid);
  }

  print header(),
        start_html('Cosmids'),
        h1('Cosmids'),
        ol(
          li(\@list_items)
        ),
        end_html;