#!/usr/bin/env perl

use strict;

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->env_proxy;
local $/;
my $content = <>;
my $req = POST 'http://pbot.icip.de/', [ content => $content ];
if (my @loc = grep (/^Location/, split("\n", $ua->request($req)->as_string))) {
        $loc[0] =~ s/Location: //;
        print "$loc[0]\n";

} else {
        print $ua->request($req)->content;
}