my $n =50;
while(1)
{
my $time = time();
print $sock "$name\r\n";
my @output;
$output = join('', @output);
$|=1;
while (<$sock>)
{
if ( $output = /$match/){
open(filelog, ">>searchlog.txt") || die $!;
print filelog "$time $name\n";
close filelog;
open(tmpl, "email.txt.asc") || print $!;
@tmpl = <tmpl>;
foreach $line (@tmpl) {
$line =~ s/XnameX/$name/g;
push @email, $line;
$email_send = join('', @email);
}
open (TOHOST, "|$sendmail $your_email")|| print $!;
print TOHOST "To: $your_email \nFrom: $your_email\n";
print TOHOST "Subject: Name Change\n";
print TOHOST "$email_send\n";
close(TOHOST);
}
else
{
open(filelog, ">>log.txt") || die $!;
print filelog "$time $name\n";
close filelog;
}
sleep(int(43200/$n) - (time() - $time));
}