keygenjukebox_downloader.pl

use strict;
use warnings;

my $dir = "keygenjukebox";
my $root = "keygenjukebox.html";

mkdir($dir);

system("wget http://keygenjukebox.com -O $root") == 0 or die "Can't download http://keygenjukebox.com or no wget installed..." unless -e $root;

my $text = do { local $/; open F, $root or die; <F>; };

my %songs = map { $_ => 1 } ($text =~ /value="([^"]+\.mp3)"/gi);

for my $song (sort keys %songs) {
    print "[$song]\n";
    system("wget -a keygenjukebox.wget.log http://keygenjukebox.com/m/$song -O $dir/$song") == 0
        or die "Can't download [$song]." unless -e "$dir/$song";
}