#!/usr/bin/perl -w
require "./led.pl";

for($x=1;$x<100;$x++)
{
blink(1,80000);
up2down (1, 80000);
diagonal2(1,80000);
left2right (1, 80000);
diagonal3(1,80000);
down2up (1, 80000);
diagonal1(1,80000);
right2left (1, 80000);
diagonal4(1,80000);
lauflicht(1,80000);
}
exit;