if(  $^O =~ /^MSWin/  ) {
      $comp= $b gt $a;
  } else {
      $comp= $a lt $b;
  }