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

blink(20,20000);
for($x=1;$x<10;$x++){
up2down (1, 200000);
diagonal2(1,200000);
left2right (1, 200000);
diagonal3(1,200000);
down2up (1, 200000);
diagonal1(1,200000);
right2left (1, 200000);
diagonal4(1,200000);
}
lauflicht(10,800000);
exit;