Maybe you want to use WWW::Mechanize

#!/usr/bin/perl

use strict;
use warnings;
use WWW::Mechanize;

my $url = 'http://domain.tld/requestpage.html';
my $your_statements = 'Your Statements';
my $your_digit = 123456789012345;
my $filename = '/path/to/file.xml';
my $mech = WWW::Mechanize->new();

$mech->get($url);
if($mech->success()){
  $mech->submit_form(fields => {
                name_of_textarea => $your_statements,
                name_of_textfield => $your_digit});
  if($mech->success()){
    open(my $fh,">",$filename) or die $!;
    print $fh $mech->content();
    close $fh;
  }
}
[download]