use LWP::UserAgent;
use LWP::Protocol::socks;
use HTTP::Request;

my $ua = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');

$ua->proxy([qw(http https)] => "socks4://xx.xx.xx.xx:1080");

$ua->ssl_opts( verify_hostnames => 0 );

my $user_form_data = ["user"=>"$username", "pass"=>"$password", "passcheck"=>"$password"];

my $response = $ua->post("https://ssl.xxxxxx.com/post/register",$user_form_data);

die "Error: ", $response->status_line . "\n"
unless $response->content;