[perl, linux]Script na online uzivatelov

U kamosa maju siet po barakoch, asi 80kompov, na servery apache a na jednej stranke som narazil na jednu zaujimavost, boli tam zoradene mena ludi na sieti a vedla nich monitor, ked bolo zeleny tak to znamena ze ma pocitac zapnuty a ked cerveny tak ze ma vypnuty.Velmi sa mi to zapacilo, ale ich mily admin mi len povedal ze je to v Perli, funguje to na principie neustaleho pingovania pocitacov a poslal ma do rit..

Takze ak by bol z vas niekto taky mily a mal by link, alebo aj kod, bol by som mu zaviazany, celkom sa mi to pacilo :)

//perl nie je podmienkou

co treba tohle: http://freshmeat.net/projects/npulse/
neni to presne to co pouzivaj na miji siti, ale todle zas odpovida tvemu popisu (a je to v perlu)...