airbus$ perl sri.perl | grep ^http://surink.com
http://surink.com/18a
airbus$ cat sri.perl
#!/usr/bin/perl
use LWP::UserAgent;
use URI;

my $uri = URI->new( 'http://surink.com/' );
$uri->query_form( uri => "dabase.com" );
my $ua = LWP::UserAgent->new;
 $ua->timeout(10);

my $response = $ua->get( $uri->as_string );

if ($response->is_success) {
    print $response->content;
}
else {
    die $response->status_line;
}
airbus$