open(DEV, "<", "/dev/hda1") or die("Cannot open: $!");
binmode DEV;
sysread DEV, $boot, 512;
close(DEV);