Не отправляются данные форме

Вот код-не могу ошибку поймать
my $ua = new LWP::UserAgent;
require HTTP::Headers;
$header = HTTP::Headers->new;
1)$header->header(Content-Type => 'form-data' ,url=>'http://www.imho.ws',number=>155);
my $req = new HTTP::Request( POST => 'http://www.imho.ws',$header);
2)$req->content_type('form-data');
2)$req->content('url=http://www.imho.ws&number=155');
my $res = $ua->request($req); # Отправка

ТО что обозначается цифрами 1)-не работает
2)-работает
где ошибка?

[is_absent]

видимо $header->header(Content-Type => 'form-data' ,url=>'http://www.imho.ws',number=>155); в этой строчке... попробуй 'Content-Type', это все-таки строка

ООП - зачем????

[is_absent]

скорее всего Perl понимает это как арифметическое выражение ну и пишет 0 соответственно

Добавлено через 1 минуту:
Silya
Это на любителя

@_is_absent наверное