$act=='del'

$act eq 'del'

$host='vkontakte.ru'; 
......
chomp($host);

 #!/usr/bin/perl 
###################### 
#Забань дурова и его компанию# 
###################### 


use Socket; 
# no strict? no warnings?
$email=""; #мыло  @ на %40 
$pass= '' ; # Хэш пароля в md5 
$id=''; # ваш id 
# my ($email, $pass, $id...)
$d1='1';     # начало диапозрна 
# don't quote numbers
$d2='99998888';     # конец диапозрна 
# same lame shit
$act='del';  #del для удаления, add для добавления 
$ft=''; 
# my $ft;
if($act=='del'){ 
    $ft='From'; 
}else{ 
    $ft='To'; 
} 
# wtf? use if ($act eq 'del')
$host='vkontakte.ru';    #Хост 
$port="80";        #Порт 
# quotes again?

for($i=$d1;$i<$d2;$i++){ 
# for my $i ($d1 .. $d2-1) {...}
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
# socket my $SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp') or die "look ma, and error message $!";
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
#connect $SOCK, sockaddr_in($port, inet_aton($host)) or die "connect() error: $!";
send (SOCK, "GET /settings.php?act=".$act.$ft."BlackList&id=$i HTTP/1.0\nHost: $host\nCookie: remixmid=$id; remixemail=$email; remixpass=$pass;\n\n", 0); 
close(SOCK); 
# mmm unneeded parens
print "[+] $i - ok\n";     
} 

print "\nPress enter"; 
<STDIN>; 
#btw, learn russian