$TIMER = 10;
while (TRUE) {
&initialScreenOut;
&beginFileIO;
&htmlHeader;
&timeStamp;
&legend;
my @PORTS = ("24","26","26","26");
my @BASE = ("0x0000F6AE2D41","0x0000F6BC4401","0x0000F6BC3B41","0x0000F6BC5C01");
&makeTable ( "134.200.212.109","DeskStream1", 4, 26, \@BASE, \@PORTS);
my @PORTS2 = ("24","24","26");
my @BASE2 = ("0x0000F6D83301","0x0000F6E2E901","0x0000F64C09C1");
&makeTable ( "134.200.212.190","DeskStream2", 3, 26, \@BASE2, \@PORTS2);
my @PORTS3 = ("26","24","24");
my @BASE3 = ("0x0000F64C2701","0x0000F64C2281","0x0000F64C3981");
&makeTable ( "134.200.212.189","DeskStream3", 3, 26, \@BASE3, \@PORTS3);
&htmlFooter;
&finalScreenOut;
sleep($TIMER);
}