Вот простой вариант, хотя наверное можно ещё проще:
| Код | #!/usr/bin/perl use strict; use LWP::UserAgent;
# URL СТРАНИЦЫ my $url = 'http://www.mobile.de/cgi-bin/da.pl?bereich=pkw&id=11111111171680812&sprache=1';
# Заголовок страницы, если не выводишь полученную информацию в браузер можно убрать print "Content-type: text/html\n\n";
my $user_agent = LWP::UserAgent->new(); # Прикинемся браузером $user_agent->agent("Mozilla/6.0"); # Подготавливаем GET запрос my $request = HTTP::Request->new(GET => $url); # Указываем, какой тип документа готовы принять $request->header('Accept' => 'text/html'); # Посылаем запрос серверу my $result = $user_agent->request( $request );
# Если запрос прошёл успешно, значит выводим ответ сервера if ( $result->is_success ) { print $result->content(); } else { # В противном случае, сообщение об ошибке print "Fuck! Can't connect: " . $result->status_line . "\n"; }
|
Сейчас попробую написать чего-нить попроще. 
А такой код, создаст зеркало этой страницы у тебя на винте, в текущем каталоге:
| Код | #!/usr/bin/perl use LWP::Simple; # URL СТРАНИЦЫ my $url = 'http://www.mobile.de/cgi-bin/da.pl?bereich=pkw&id=11111111171680812&sprache=1'; mirror("$url", "test.html");
| |