#!/usr/bin/perl -w
use strict;
use Win32::API;
use POSIX qw(strftime);
use Data::Dumper;

my $GetLastInputInfo = Win32::API->new("user32.dll",'GetLastInputInfo','P','I');
my $GetTickCount = Win32::API->new("kernel32.dll",'GetTickCount','','I');

sub get_user_idle_time {
    my $buffer = pack "VV", 8,0;
    $GetLastInputInfo->Call($buffer)
        or die "Couldn't call GetLastInputInfo: $^E";
    my ($size,$time) = unpack "VV", $buffer;
    my $now = $GetTickCount->Call;

    # Adjust time to return a reference in seconds
    return int (($now-$time) / 1000);
};


while (1) {
    print strftime( "Idle since %M:%S\n", localtime(get_user_idle_time));
    sleep(2);
};