open HDA, '</dev/hda';

my $mbr;
read HDA, $mbr, 512;