#!/usr/bin/perl

use CGI;
use warnings;

print "Content-type: text/plain\n\n";

$output = system("blast/bin/blastall -i test.na -p blastn -d blast/db/vector > result_blast");

open FILE, "result_blast" or die $!;
my $lineno = 1;
while (<FILE>) {
   print ": $_";
}