#! /usr/bin/perl -w

use strict;
use LWP 5.64;

my $url='http://paste.org.ru/?';
my $browser=LWP::UserAgent->new;
my $response=$browser->post($url,
[ 'type'=>'1',
'code'=>'7acv51',
]
);

$response = $response->as_string;
$response =~ /"(.*?)"/;
print "http://paste.org.ru$1";