If nothing else, this will be a nice example for Win32::API, once it works.

Did you check the return value of sizeof? I'm guessing you should pass the name of the structure, instead of the reference.

Please try:

#right after $rasentry = Win32::API::Struct->New( 'RASENTRY' );
# in your code
printf "Sizeof \$rasentry: %d, sizeof RASENTRY: %d\n",
     (Win32::API::Struct::sizeof($rasentry)),
     (Win32::API::Struct::sizeof('RASENTRY'));
[download]

I think you'll get a saner value for 'RASENTRY', but I'm just guessing.
--
Mike