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


blink(5,200000);
for($x=1;$x<100;$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);
blink(10,50000);
}
exit;