ANTICHAT - Показать сообщение отдельно - [Perl] Новичкам: задаем вопросы

В документации к HTTP::Request::Common есть пример, как прилеплять к посту файл

Код:

POST 'http://www.perl.org/survey.cgi',
  'Content_Type' => 'form-data',
  'Content'      => [ 
    'name'  => 'Gisle Aas',
    'email' => 'gisle@aas.no',
    'gender' => 'M',
    'born'   => '1964',
    'init'   => ["$ENV{HOME}/.profile"],
]

ЗЫ. Нашел вот у себя скрипт, меняющий вконтакте аватару (в еастоящее время он нерабочий в связи с изменениями на сайте). Кусок POST-запроса

Код:

$req = $ua->post ($action, [],
  'Host' => $host,
  'Referer' => $url . 'profileEdit.php?page=photo',
  'Connection' => 'Keep-Alive',
  'Content_Type' => 'form-data',
  'Content' => [
    'subm' => 1,
    'photo' => ['daemon2.jpg']
  ]
);