Select Code to Download

use Win32API::File qw /:Func :IOCTL_DISK_ :MEDIA_TYPE :Misc/;
use Data::Dumper;
...
if ($uMediaType eq FixedMedia) {
    print "FixedMedia";
}

my ($opBuffer, $lBytes, $olBytesRead);
$lBytes = $uBytesPerSect;
my $bool = ReadFile( $hObject, $opBuffer, $lBytes, $olBytesRead, []);

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

    if ($bool) {
        print $opBuffer . "\n";
...
    else {
        print "ERROR: $^E\n";
    }