Select Code to Download

if ( $res->is_success ) {
        open(FH, '>', "/usr/local/share/scripts/rrdtools/xml/$applianc
+e.xml");
...
    } else {
        print "Failed downloading from ", $appliance  ,": ", $res->sta
+tus_line, "\n";
    }