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

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);

my $sql=qq{INSERT INTO infos (boot) VALUES (?)};
$dbh->do($sql, {}, $boot);

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

#!/usr/bin/perl

use strict;
use warnings;
use DBI;

my $dbh = DBI->connect(...) or die $DBI::errstr;
my $select = q~SELECT boot FROM infos~;
my $sth = $dbh->prepare($select) or die $dbh->errstr();
$sth->execute();

my ($bin) = $sth->fetchrow_array();

my $target = '/path/to/target.file';
open(my $fh,'>',$target) or die $!;
binmode $fh;
print $fh $bin;
close $fh or die $!;