#!/usr/bin/perl

use warnings;
use strict;
use LWP::UserAgent;

#############################
my $img_dir = './images/';  # Путь к папке с изображениями
my $link_file = 'links.txt';# Файл с ссылками на загруженные изображения
#############################

print qq(##############################
# Radikal.Ru Images Uploader #
#       (c)Gaus 2009         #
##############################\n\n);
my @images = <$img_dir*.*>;
while(@images){
my $cimg = shift @images;
my $ua = LWP::UserAgent->new(timeout => 65);
my $answ = $ua->post("http://www.radikal.ru/action.aspx",
Content_type => 'multipart/form-data',
Content => [upload => "yes",
GEO_POINT_ID => "",
F => [$cimg]])->as_string;
if($answ =~ m,"input_link_1" value="(.*?)",i){
print "[ + ] ".$1." [$cimg]\n";
open my $dat,'>>',$link_file or die "\nCould not open $link_file file!\n";
print $dat "[IMG]".$1."[/IMG]\n";
close $dat;
}else{print "[ - ] [$cimg]\n";}
}