exec = ("BlastTool.cgi", "$date", "$show_filter", "$oldRefFile",
 "$blast_filehandle", "$ref_filehandle", "$email", 
 "$send_email","$show_all", "\@OrigRef", "\@blastLine", 
 "\@species_filter", "\@chromo_filter", 
 "\@advanced_filter") or die;

##</code><code>##

  my $date = shift @_;
  my $show_filter = shift @_;
  my $oldRefFile = shift @_;
  my $blast_filehandle = shift @_;
  my $ref_filehandle = shift @_;
  my $email = shift @_;
  my $send_email = shift @_;
  my $show_all = shift @_;
  my @OrigRef = @{shift @_};
  my @blastLine = @{shift @_};
  my @species_filter = @{shift @_};
  my @chromo_filter = @{shift @_};
  my @advanced_filter = @{shift @_};