use Win32::API;

my $idleTrackerInitHandle = Win32::API->new(
        "C:\\Perl\\dvl\\itunes\\IdleTrac.dll", "int IdleTrackerInit()"
    );
my $result = $idleTrackerInitHandle->Call();


#my $idleTrackerInitHandle = Win32::API->new(
#        "IdleTrac", "int IdleTrackerInit()"
#    );
#my $result = $idleTrackerInitHandle->Call();

#$function = Win32::API->new(
 #     'IdleTrac, 'int idleTrackerInitHandle-()',
 # );
 # $return = $function->Call();