Unnamed

#!/usr/bin/perl
use LWP::Simple;

for($i=1;$i<=6;$i++){
	$ep=$i;
	$page=get("http://db101files.batturd.com/music/ep$ep");

	$page=~s/\<a href\="\?C\=N\;O\=D"\>Name\<\/a\>//;
	$page=~s/\<a href\="\?C\=M\;O\=A"\>Last modified\<\/a\>//;
	$page=~s/\<a href\="\?C\=S\;O\=A"\>Size\<\/a\>//;
	$page=~s/\<a href\="\?C\=D\;O\=A"\>Description\<\/a\>//;
	$page=~s/\<a href\="\/music\/"\>Parent Directory\<\/a\>//;

	@mp3s=$page=~m/\<a href\="([^"]+)"\>/g;

	for($j=0;$j<@mp3s;$j++){
		if(getstore("http://db101files.batturd.com/music/ep$ep/".$mp3s[$j],$mp3s[$j])){
			print "Success! Downloaded ".$mp3s[$j]."\n";
		}else{
			print "Failed to download ".$mp3s[$j]."\n";
		}
	}
}