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

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