Untitled

#!/usr/bin/perl
# By Fubu
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
$bufor = $ENV{'QUERY_STRING'};
}
else
{
read(STDIN, $bufor, $ENV{'CONTENT_LENGTH'});
}
@pary = split(/&/, $bufor);
foreach $para (@pary) {
($nazwa, $wartosc) = split(/=/, $para);
$wartosc =~ tr/+/ /;
$wartosc =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$formularz{$nazwa} = $wartosc;
}
print "Content-type: text/html; charset=utf-8\n\n";
print "<HTML><HEAD><TITLE>Mp3</TITLE></HEAD>\n";
print "<BODY>\n";
print "mp3 searcher By psikutasposampas [; <BR> ";
print "<B>Dork :</B> $formularz{'nuta'} <BR>\n";
print "</BODY></HTML>\n";
use HTTP::Request;
use LWP::UserAgent;

for ($i = 0;$i <= 10;$i += 1) { {
$link = &query("http://www.wrzuta.pl/szukaj/audio/".$formularz{'nuta'}."/$i");

while($link =~ m/<a href\=\"http:\/\/(.*).wrzuta.pl\/audio\/(.*?)\"><img src\=\"(.*?)\" alt\=\"(.*?)\" \//g) {
my $s= "http://".$1.".wrzuta.pl/sr/f/".$2;
print('<a href="'.$s.'">Download</a> |'.$4.' <br>');
}

}}


sub query() {

    $link = $_[0];

    my $req = HTTP::Request->new( GET => $link );

    my $ua = LWP::UserAgent->new();

    $ua->agent($User_Agent[rand(scalar(@useragents))]);

    $ua->timeout(5);

    my $response = $ua->request($req);

    return $response->content;

}