use JSON;
use Encode;
use LWP::UserAgent;

# Original content follows, unedited
my @data = (); my $json_data = encode_utf8(encode_json(\@data));
my $ua = LWP::UserAgent->new;
my $request = HTTP::Request->new(POST => $url2);
$request->header("__atts" => $ajax_atts);
$request->header('__ath' => $ajax_ath);
$request->header('__atcrv' => $ajax_atcrv);
#$request->content($json_data);
my $response = $ua->request($request);