Also, you can find some very useful Win32 information at Roth Consulting Perl/Win32 Programming. You may want to check out their Win32::API::Prototype extention too. Here's an example:

    use Win32::API::Prototype;
    @Days = qw(
        Sun
        Mon
        Tue
        Wed
        Thu
        Fri
        Sat
    );
    ApiLink( 'kernel32.dll', 'void GetLocalTime( LPSYSTEM  lpSystemTim
+e )' ) || die;
    $lpSystemTime = pack( "S8", 0,0,0,0,0,0,0,0 );
    
    # This function does not return any value
    GetLocalTime( $lpSystemTime );
    
    @Time{ year, month, dow, day, hour, min, sec, mil } = unpack( "S*"
+, $lpSystemTime );
    printf( "The time is: %d:%02d:%02d %s %04d.%02d.%02d\n", $Time{hou
+r}, $Time{min}, $Time{sec}, $Days[$Time{dow}], $Time{year}, $Time{mon
+th}, $Time{day} );
[download]

--
hiseldl
"Act better than you feel"