my $pid;
  if ($pid = fork) {
      local $| = 1; # patch1
      print qq~<response type="4" status="1">~;
      print qq~ </response>\n~;
    } elsif (defined $pid) {
  sleep 1; # patch2
  close STDOUT;
#exit;
  my $myba = mybaapp->new();
  my $linkbase = $myba->mob2myba($url);
   
  $myba->sendinfo($smsfrurl);
  exit;


  } else {

    die "Major error: $!";

  } #end fork