#!/usr/bin/perl -w
use strict;
use Win32::API;

Win32::API->Import("kernel32", "INT SPI_GETSCREENSAVETIMEOUT()"); 
my $foo = SPI_GETSCREENSAVETIMEOUT();

##</code><code>##

Undefined subroutine &main::SPI_GETSCREENSAVETIMEOUT called at ...

##</code><code>##

Win32::API->Import("kernel32", "int GetCurrentProcessId()");
$PID = GetCurrentProcessId();