CLI

Добрый день.

Пытаюсь написать скриптик для работы через CLI.pm.

• cut -- print $aliases."\n"; $cli->SetAccountAliases('test@domain.ru',$aliases) || die "Error: ".$cli->getErrMessage.", quitting";
• cut --

Выдает:
cgp $ ./cli.pl
['john_smith','js','rrr']
Error: failed to read an array: no leading '(', quitting at ./cli.pl line 37, <GEN0> line 5.

Здесь совсем не понятно :(.
В другом варианте:

• cut -- print $aliases."\n"; $cli->SetAccountAliases('test@domain.ru',[$aliases]) || die "Error: ".$cli->getErrMessage.", quitting";
• cut --

cgp $ ./cli.pl
'j.smith','john_smith','js'
Error: illegal name for an account, quitting at ./cli.pl line 37, <GEN0> line 5.

подозрение, что $aliases воспринимается как строка, а не как переменная.

Откройте мне глаза пожалуйста. Получено Wed Feb 02 15:24:32 2005