NAME

Data::ParseBinary::FileSystem::MBR - Parsing the partition table

SYNOPSIS

use Data::ParseBinary::FileSystem::MBR qw{$mbr_parser};
my $data = $mbr_parser->parse(CreateStreamReader(File => $fh));

Can parse the binary structure of the MBR. (that is the structure that tells your computer what partitions exists on the drive) Getting the data from there is your problem.