#!perl use strict; use warnings; use Win32::API; use Win32::API::Struct; 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 @{$systime}{qw/wYear wMonth wDay wHour wMinute wSecond wMilliseconds/} = qw/2004 2 6 22 38 30 0/; SetSystemTime($systime);