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

lauflicht(5,200000);
for($x=1;$x<=50;$x++)
{
up2down (1, 200000);
down2up (1,200000);
left2right (1, 200000);
right2left(1,200000);
}
blink(1,10000000);