my $ivOffset = 25096704;
my $uNewPos = SetFilePointer( $hObject, $ivOffset, [], FILE_CURRENT ); # change to use Win32API::File qw /:Func :IOCTL_DISK_ :MEDIA_TYPE :Misc/;