if (($FORM{'email'} =~ /\w+\@\w+/)&&($FORM{'sequence'} ne "")){
  my $sequence=$FORM{'sequence'};
  my $window=$FORM{'window_size'};
  my $email=$FORM{'email'};

  my $pid = fork();
  
  if($pid==0){ #child process - want this to carry on in background
    #call subroutine that posts this info to slow-running program
    &get_disorder($sequence, $window, $email);
   }
  else{ #parent process - want to give use back a webpage NOW
    print "Your results will be emailed to you.";
  }

}