my $pid = fork;
die unless defined $pid;

if ($pid) {
  # Parent. Do whatever you want
} else {
  # Child
  do 'blastall.pl';
}