Ошибка Global symbol в Perl

[Agronom]

Есть скрипт, который парсит приходящие в письмах анкеты, но почему-то выдает ошибки, вот начало скрипта:

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

use strict; 

# Used for to determinate encoding and convert 
use Lingua::DetectCharset; 
use Convert::Cyrillic; 

# Used for parse mail 
use Mail::Header; 
use Mail::Internet; 

# Used for insert into database 
use DBI; 

# Used for date 
$ENV{TZ}="BT"; 
use Date::Manip; 

open OUT, ">/usr/local/pgsql/scripts/my"; 

# Read mail 
my $mail =  Mail::Internet->new([ <STDIN> ]); 

# if mail is right? 
if( mail_right ($mail) ) { 
 print OUT "Not right from mail-addres!!!\n"; 
 } 
#print OUT "Main: $body, @$body"; 

# mail encoding 
if(!mail_encoding()) { print OUT "Not right encoding koi8!!! \n" }; 

# mail_convert 
($clients,$sotrud,$istor,$url)=mail_convert(); - ВОТ НА ЭТУ СТРОКУ УЖЕ РУГАЕТСЯ 
print OUT %$clients; 
print OUT %$sotrud; 
print OUT %$url; 

#print $prs_a; 

# insert in DB 
if(!insert_DB($clients,$sotrud,$istor,$url)) { print OUT "Not proper insert in DB!!!! \n"; } 


close OUT;

а ошибки вот такие:

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

Global symbol "$clients" requires explicit package name at /usr/local/pgsql/scripts/my_script line 57. 
Global symbol "$sotrud" requires explicit package name at /usr/local/pgsql/scripts/my_script line 57. 
Global symbol "$istor" requires explicit package name at /usr/local/pgsql/scripts/my_script line 57. 
Global symbol "$url" requires explicit package name at /usr/local/pgsql/scripts/my_script line 57.

подскажите как это исправить?

[Хостинг 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/

[Alex Keda]

57-я строка - это какая?

[Agronom]

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

($clients,$sotrud,$istor,$url)=mail_convert(); - ВОТ НА ЭТУ СТРОКУ УЖЕ РУГАЕТСЯ

[al0ns0]

перед скобой объяви переменные локальными дописав my либо убери прагму use strict;