? , ?
, , ( ) LWP. .
LWP::UserAgent
Mypost.pl
# Create a user agent object
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->agent("DeViL Explorer/0.1 win2000 Must die");#
# Create a request
my $req = HTTP::Request->new(POST => 'http://guest.book.sim.ple');#
$req->content_type('application/x-www-form-urlencoded');#
$req->content('name=lammer&text=Hello_world&add=');#
# Pass request to the user agent and get a response back
my $res = $ua->request($req); # .
# Check the outcome of the response