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