#!/usr/bin/perl --
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use CGI qw/ param escapeHTML header /;

Main( @ARGV );
exit( 0 );

sub Main {
   my( $headers, $body ) = SequencePage();
   print $headers, $body;
}
sub SequencePage {
   my( $defLine, @seqLines ) = split />/, param('sequence');
   my $body = escapeHTML( $defLine );
   $body .= "<br>".escapeHTML( $_ ) for @seqLines;
   return header(), $body;
}
[download]