my $inFile = shift; 
open (IN, "$inFile");
$/ = ">";
while ( my $record = <IN> ) {
chomp $record; 
my ($defLine, @seqLines) = split /\n/, $record;
my $sequence = join('',@seqLines); 

##</code><code>##

use CGI qw(:cgi-lib :standard);
print "Content-type: text/html\n\n";
my $seq = param('sequence');
$/ = ">";
chomp $seq; 
my ($defLine, @seqLines) = split /\n/, $seq;