Mail Crawler

#!/usr/bin/perl
# emailzz.pl by TheLeader
# Searches google and gathers e-mail adresses from search results
# Credit to Sro for the idea and the inspiration.. keep it up dude ^^
# http://forums.hacking.org.il/viewtopic.php?p=49414#49414

# When patterns are broken, new worlds emerge ~Tuli Kupferberg
# DISCALIMER:
# Using this script may violate Google's Terms of Service.
# I take no responsibility of the damage that may be caused from the usage of this script.
# Use at your own risk.

$|++;

use LWP::UserAgent;

print "\n\n  [*] AnOtHer FiNE ReLeaSe bY TheLeader.. gotta love myself =D\n" .
"  [*] emailzz.pl initialized\n";

my @dorks = ("\@gmail.com", "\@hotmail.com", "\@mail.ru", "\@walla.com",
             "\@live.com", "\@windowslive.com", "\@yahoo.com", "\@yahoomail.com", "\@ymail.com");
my $sleep_time = 3;
my $res;
my $line;
my %emails;

print "  [*] Checking for previous results.txt.. ";

if (-e "results.txt")
{
print "Found!\n".
"  [*] Loading addresses from file.. ";

  open FILE, "

  while ($line = )
  {
    chomp ($line);
    $emails{$line} = 1;
  }
  close FILE;

  print "Completed\n";
}
else
{
  print "Not found\n";
}

print "  [*] Initializing agent.. ";

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 6.1; he; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)");

print "OK\n";

foreach $dork(@dorks)
{
  print "  [*] dork: $dork\n";
  $res = "";

  for ($i = 0; $i <= 900; $i += 100)
  {
    print "  [*] Retrieving results - " . (($i + 100) / 10) . "%\n";
    sleep($sleep_time);
    $res = $ua->get("http://www.google.co.il/search?q=$dork&start=$i&num=100&sa=N&filter=0")->content;
    $res =~ s///g;

    while ($res =~ m/[a-zA-Z0-9\-\.]+@[a-zA-Z0-9\-\.]+\.[a-zA-Z]{2,4}/g)
    {
      $emails{$&} = 1;
    }
  }
}

print "  [*] Total emails: " . (scalar keys %emails) . "\n" .
      "  [*] Writing results to results.txt\n";

open FILE, ">results.txt";
print FILE join("\n", keys %emails);
close FILE;