Help for this page
#!/usr/bin/perl ... ioctl(fd, KDSETLED, orig); }
#!/usr/bin/perl ... sleep( 2 ); ioctl(FH, $KDSETLED, $orig);
#!/usr/bin/perl ... ioctl(FH, $KDSETLED, $i); sleep( 2 ); }