#!/usr/bin/perl

use Socket;

$bannerkoe=<;
close(hf);
$check=1;#Check if any save session
$nomer=1;

$googleurl="http://www.detikinet.com/index.php/detik.kanal/idkanal/105?";
$httppost="GET $googleurl HTTP/1.0\r\n\r\n";
@results=sendraw($httppost);
$data = join("",@results);
printlog("Header berita utama di detikinet.com :\n\n");
@tmp=split(/\/,$data);
for ($a = 1; $a <= $#tmp; $a++)
{
  @u=split(/\$fsav");
  print hf $url;
  close(hf);
  
  printlog("$nomer. $url\t");
  $nomer++;

printlog("\n\n");
}

printlog("Header berita lain di detikinet.com :\n\n");
@tmp=split(/\/,$data);
for ($a = 1; $a <= $#tmp; $a++)
{
  @u=split(/\$fsav");
  print hf $url;
  close(hf);
  
  printlog("$nomer. $url\t");
  $nomer++;

printlog("\n\n");
}
exit;

# ------------- Sendraw - thanx RFP rfp@wiretrip.net
sub sendraw {   # this saves the whole transaction anyway
        my ($pstr)=@_;

        socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||0) ||
                die("Socket problems\n");
                
        if(connect(S,pack "SnA4x8",2,$port,$target)){
                my @in;
                select(S);      $|=1;   print $pstr;
                while(){ push @in, $_;}
                select(STDOUT); close(S); return @in;
        }
}

sub printlog {
print @_[0];
open(lo,">>$log");
print lo @_[0];
close(lo);
return;
}

    Source: geocities.com/iko94/tools