aboutsummaryrefslogtreecommitdiff
path: root/svgcaptcha-parser
diff options
context:
space:
mode:
Diffstat (limited to 'svgcaptcha-parser')
-rwxr-xr-xsvgcaptcha-parser6
1 files changed, 3 insertions, 3 deletions
diff --git a/svgcaptcha-parser b/svgcaptcha-parser
index af98720..fd65c8d 100755
--- a/svgcaptcha-parser
+++ b/svgcaptcha-parser
@@ -4,11 +4,11 @@ use strict;
use warnings;
use XML::Simple;
-
+use HTTP::Tiny;
# Fetch fresh svg and parse it
-die("Failed to download new svg: $!\n") unless my $raw_svg = `curl -s http://svgcaptcha.com/captcha.php`;
-
+my $response = HTTP::Tiny->new->get('http://svgcaptcha.com/captcha.php') or die("Failed to download new SVG: $!\n");
+my $raw_svg = $response->{content};
my $svg = XMLin($raw_svg, KeyAttr => {"text", "x"})->{"text"};