ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/bin/perl -w

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $q = $ua->post( 'http://connect.ua/spotlight?id=317891',
			[  comment_text   => ' ',
			   submit_comment => '%D0%B4%D0%BE%D0%B1%D0%B0%D0%B2%D0%B8%D1%26%2365533%3B%D1%26%2365533%3B',
			] );

#!usr/bin/perl
use LWP::UserAgent;
$client = LWP::UserAgent->new( ) or die;
print "Enter site:";
$url=<STDIN>;   #Просим пользователя ввести адрес сайта
$answer = $client->get($url); #Отсылаем запрос на сайт
print "============================\n";
print $answer->header("server")."\n"; # Выводим поле Server из заголовка
print "============================\n";