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

my $cookie_jar = HTTP::Cookies->new();
my $agent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; de-DE; rv:1.7.12) Gecko/20050919 Firefox/1.0.7";

my $ua = LWP::UserAgent->new;
$ua->cookie_jar( $cookie_jar );
$ua->agent( $agent );

my $query_resp = $ua->request(POST "h++p://localhost/phpmyadmin/server_sql.php",
                               [sql_query => 'CREATE DATABASE `123`;',
                                SQL => 'OK']);