Enviando requisição POST por PERL

Devido a necessidade de uma integração entre um servidor e um sistema tive de criar um script em Perl que enviasse as informações necessárias via POST.
Para fazer o envio é necessário utilizar o LWP, e este fica disponível ao se instalar o pacote libwww-perl.

 sudo apt-get install libwww-perl 

Tendo instalado agora é só usar.

#!/usr/bin/perl -w

use strict;
use LWP::UserAgent;
use HTTP::Request::Common;

#Envia as informações dentro do array [ 'id' => '1','log' => 'teste' ]
my $resp = LWP::UserAgent->new->post("http://192.168.0.2",[ 'id' => '1','log' => 'teste' ]);

#Imprime o erro HTML
print $resp->error_as_HTML unless $resp->is_success;
#Imprime a resposta
print $resp->as_string;