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

my $im = shift || die "Nety kartinki\n";

my $ua = LWP::UserAgent->new;
my $load = $ua->post('http://www.radikal.ru/action.aspx',
                     Content_type => 'multipart/form-data',
                     Content      => [upload => 'yes',
                                      F      => [$im]])->content;

$load =~ m,"img4prev" src="(.+?)",i ? print $1 : print "XYI"