#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;

my $url = 'http://example.org/script.php';

my $input;
$input .= $_ while(<stdin>);

my $lwp = LWP::UserAgent->new();
$lwp->post( $url, { email => $input } );