Thanks a lot - Marissa# Create a user agent object $ua = new LWP::UserAgent; $ua->agent("$0/0.1 " . $ua->agent); $ua->timeout(90); # Create a request my $req = new HTTP::Request POST => 'https://10.37.12.4:7001/mail'; $req ->content($my_string); # Pass request to the user agent and get a response back my $res = $ua->request($req); print $res->as_string."\n"; # Check the outcome of the response if ($res->is_success) { print $res->content; } else { print "Bad luck this time\n"; }
In reply to Crypt::SSLeay by mef201
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |