Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...

if ($response->is_success) {print "It worked!->" . $response->code . "
+\n"}
else {print "It didn't work!->" . $response->code . ": " . $response->
+status_line . "\n"}

Select or download this

--Performing request now...-----------
--Done with request-------------------
It didn't work!->401: 401 Unauthorized