my $bin_data = do{ local (@ARGV,$/) = $file; <> };

....INSERT INTO fotos (bin_data, name) VALUES ($bin_data, $name)