#!/usr/bin/perl

use strict;
use warnings;
use Win32::KeyState qw(:get);

while(1) {
   print 'CapsNum is ', GetNumLock() ? 'On' : 'Off', "\n";
}