Guys can some read the below code and tell me what I'm doing wrong? I
just want to post some values to a php script.

# Setup a user agent for LWP
use LWP::UserAgent;
my $LWPua = LWP::UserAgent->new;
$LWPua->agent("firefox");

#LWP - HTTP request 1
my $LWPreq1a = HTTP::Request->new(POST
=>"http://www.scoilweb.net/construction/dev/dev102r.php");
$LWPreq1a->content("recipient = [Email Removed]");
$LWPreq1a->content("subject = OnLineExped-ORDER");
$LWPreq1a->content("followup-page =
http://www.eset.sk/order/index.html");
$LWPreq1a->content("Reseller_Id = KILO865421");
$LWPreq1a->content("PurchaseOption = NFR");
$LWPreq1a->content("TypeOfPlatform = NOD32 for
Win9x/Me/NT/2000/XP/2003+DOS");
$LWPreq1a->content("TypeOf_License = 1");
$LWPreq1a->content("Clients_name = $FirstName $SecondName");
$LWPreq1a->content("Clients_email = [Email Removed]");
$LWPreq1a->content("Clients_phone = $RefNo");
$LWPreq1a->content("Expiration = 08/14/2006");
$LWPreq1a->content("Price = 39");
$LWPreq1a->content("Servers = 0");
$LWPreq1a->content("Note = This order was automatically submited by TMA1");

#Pass HTTP request 1 to user agent
my $LWPreq1 = $LWPua->request($LWPreq1a);

#Check response and add to info.txt
if ($LWPreq1->is_success) {print "success"} else {print "fail"};

Thanks
David