open(DATEI, "<", "boot.sec") || die("open failed: $!");
binmode DATEI; # binmode vor dem lesen
$boot = do { local $/; <DATEI> }; # Alles auf einmal, siehe perldoc perlvar
close(DATEI);