Select Code to Download

#! usr/bin/perl -w

...
print "Error" if $response->is_error;
print "Info" if $response->is_info; 
print "Redirect" if $response->is_redirect;