#!/usr/bin/perl
while (sco.money) {
  foreach (@SCO_lawsuit) {
    sco.lies++;
    sco.integrity=0;
    sco.scandalas++;
    sco.money--;
  }
}
return "Linux Wins"