system('cls');

opendir(TEMPDIR,$dir) or die("[-] Error ($!)..");
@FILES=grep(/\.torrent$/i, readdir TEMPDIR);
closedir(TEMPDIR);

for ($i=0;$i<@FILES;) {
	$res='';
         open(DESC, @FILES[$i]);
         while (<DESC>) {$res.= $_;}
         close(DESC);
        $res =~ /:name\d{0,4}:(.*)12:piece/;
	if (-s $1) {print '[+] ';} else {print '[-] ';}
        print $1."\n";
	$i++;
	}