Win32::API::Struct->typedef(SYSTEMTIME => qw{
    WORD wYear,
    WORD wMonth,
    WORD wDayOfWeek,
    WORD wDay,
    WORD wHour,
    WORD wMinute,
    WORD wSecond,
    WORD wMilliseconds
});

Win32::API->Import('kernel32', 'BOOL SetSystemTime(SYSTEMTIME lpPoint)');
my $systime = Win32::API::Struct->new('SYSTEMTIME');

# dann kann man mit $systime->{wYear} = 2004, etcpp. die Werte setzen 
# und dann die Funktion aufrufen

SetSystemTime($systime);