Показать сообщение отдельно

  #2  
Старый 25.12.2008, 16:13
f1rebl00d
Познающий
Регистрация: 27.12.2006
Сообщений: 37
Провел на форуме:
1253202

Репутация: 133
По умолчанию

Под perl юзается модуль Crypt::SSLeay

Пример:

PHP код:
#!/usr/bin/perl

use LWP::UserAgent;
 
my $ua LWP::UserAgent->new;
 
my $req HTTP::Request->new(GET => 'https://www.helsinki.fi/');
 
my $res $ua->request($req);
 if (
$res->is_success) {
print 
"Content-Type: text/plain\n\n";
     print 
$res->as_string;
 }
 else {
     print 
"Failed: "$res->status_line"\n";
 }