#!/usr/bin/perl

use strict;
use warnings;
use LWP;

my $faq_url = 'http://gtk2-perl.sourceforge.net/faq/?op=pod';
my $podi_file = 'build/FAQ.pod';

my $ua = LWP::UserAgent->new;
$ua->agent ("Gtk2-Perl FAQ Fetcher");
$ua->env_proxy;

my $req = HTTP::Request->new (POST => $faq_url);
$req->content_type ('plain/text');
print "Requesting $faq_url...";
my $res = $ua->request ($req);
if ($res->is_success)
{
	open PODI,'>'.$podi_file 
		or die "unable to open ($podi_file) for output\n";
	print PODI $res->content;
	close PODI;
}
else
{
	die "request of ($faq_url) failed\n";
}
print "...Done\n";

1;