#!/usr/bin/perl

#open(POWERLED, ">", "/dev/powerled");
open(POWERLED, ">", "/dev/gpio3");

while (1) {
  syswrite POWERLED, "1", 1;
  select(undef, undef, undef, 0.05);
  syswrite POWERLED, "0", 1;
  select(undef, undef, undef, 0.3);
}
