#!c:/perl/bin/perl -w

use strict;

use Win32::API;
use PerlMonks;
use PerlMonks::Users;

my $n=PerlMonks::Users->new;
while(1) {
    my %u=$n->users;
    if (exists($u{t0mas})) {
        MessageBox("What are you doing?","Get back to work!");
    }
    sleep 300;
}

sub MessageBox { 

    my ($caption,$message)=@_;

    my $MB_OKCANCEL  = 0x00000001;
    my $MB_ICONERROR = 0x00000010;

    my $Box = new Win32::API(
        "user32", 
        "MessageBoxA", 
        "IPPN", 
        "I");

    $Box->Call(0,$message,$caption,$MB_ICONERROR|$MB_OKCANCEL);
}
[download]