записать файл в mysql perl

[ProFTP]

не получаеться записать из масива в базу! со скаляром не получилось нифига

как сделать чтобы работаел такой код

Код: Выделить всё

#!/usr/local/bin/perl
#use strict
#use CGI qw(:standard);
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use Encode qw(encode_utf8);

open(MYFILE, "/Desktop/u.txt") || die "sdfsdfsdfsdf sd";
@contents=<MYFILE>;

#$tmp='';

#undef $/;

#while (<MYFILE>) { $tmp=$_ }; 

#print MYFILE  $tmp;

#$contents = <MYFILE> $contents $var;



my $dbh = DBI->connect("DBI:mysql:database=,
                             { RaiseError => 1, AutoCommit => 0 }) || die $DBI::errstr;
                            
my $result = $dbh->prepare("UPDATE messages SET body = ? WHERE ID=42") || die "aw";
$result->execute(@tmp);
$result->finish();
$dbh->disconnect();

ругаеться на вот это

Код: Выделить всё

$result->execute(@tmp);

подскажите как сделать?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[ProFTP]

сделал

Код: Выделить всё

while (<MYFILE>) { $tmp.=$_ }