use Inline C++ => 'DATA';

           print "9 + 16 = ", add(9, 16), "\n";
           print "9 - 16 = ", subtract(9, 16), "\n";

          _ _DATA_ _
          _ _C++_ _          # die Unterstriche musste ich trennen,weil sonst die komplette Zeile nicht angezeigt wird
           
          #include "my_math.dll"

#!/usr/bin/perl

use strict;
use warnings;

use Inline ('C++' => 'DATA',
            DIRECTORY => './',
            LIBS => '-llib/',
            INC => '-Ilib/include/'
            );
            
            

Init(0,0,0);



_ _DATA_ _
_ _C++_ _

use strict;
use warnings;
use Win32::API;
use Win32::API::Struct;
Win32::API::Struct->typedef(LOCALTIME => qw{
   WORD wYear
   WORD wMonth
   WORD wDayOfWeek
   WORD wDay
   WORD wHour
   WORD wMinute
   WORD wSecond
   WORD wMilliseconds
});

Win32::API->Import('kernel32', 'BOOL SetLocalTime(LOCALTIME lpPoint)');
my $localtime = Win32::API::Struct->new('LOCALTIME');

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

@{$localtime}{qw/wYear wMonth wDay wHour wMinute wSecond wMilliseconds/} = qw/2004 2 10 23 22 30 0/;

SetLocalTime($localtime) or print Win32::FormatMessage Win32::GetLastError;