open(DATEI, "> boot.sec")|| die " Datei nicht gefunden!";
$boot=<DATEI>;
binmode DATEI;[/b]