Select Code to Download

    my $query = qq{
        
...
    };
    
    $mech->post( $CONFIG{BASE_URL} . "/synnd/webif.awr?undefined", Con
+tent => $query );

        open my $error, ">", "error.txt" or die $!;
        print $error $query;
        close $error;

        <root><post_form_data_action object_name="Buzz" object_id="-23
+789858" object_version="1" form_name="Bookmark" form_context="create"
+ process_id="92381" > 
        <post_attribute_data attribute_name="SocialMediaAccount" >Soci
+alMediaAccount:1592361</post_attribute_data> 
...
        <post_attribute_data attribute_name="Category" ></post_attribu
+te_data> 
        </post_form_data_action> 
        </root>