Eso lo puedes hacer con
Por favor Identificate o Registrate para poder ver este contenido
, te dejo como sería el ejemplo, solo debes adaptarlo a tus variables y estructura de código:
use strict;
use warnings; use CGI;
use LWP::UserAgent;
my $cgi = CGI->new;
my %params = $cgi->Vars;
my $ua = LWP::UserAgent->new;
my $postTo = 'http://www.sitioweb.com/path/to/script';
my $response = $ua->post($postTo, %params);
if ($response->is_success) { print $response->decoded_content; }
else { die $response->status_line; } }