Perl - проблема с аплоадом

Гружу файл через форму POST`ом.

Если при обработке я пишу
$file = $query -> param('file');
а затем,
print $file;
то выводится название файла.
Мне нужно НЕ сохранить его на диск, а получить строку с содержимым файла и записать его в БД (поле типа BLOB). С сохранением файла на диск проблем нет, код типа
print FILE while (<$file>);
пишет в дескриптор FILE содержимое, мне нужно сделать то же самое но записать в базу.