twitter.pl

#!/usr/bin/perl
use IO::Socket;
use IO::Select;
use Socket;
@pesan = (
"Twitter%20Bot",
"http://bhieneka.blogspot.com%20emang%20keren",
);

$len = @pesan;
my $status = @pesan[int rand($len)];
my $url1 = ("http://URL_DOMAINMU/twitter.php?stat=$status");
my $stat1 = query($url1);

sub query($) {
    my $url = $_[0];
    $url =~ s/http:\/\///;
    my $host  = $url;
    my $query = $url;
    my $page  = "";
    $host  =~ s/href=\"?http:\/\///;
    $host  =~ s/([-a-zA-Z0-9\.]+)\/.*/$1/;
    $query =~ s/$host//;
    if ( $query eq "" ) { $query = "/"; }
    eval {
        my $sock = IO::Socket::INET->new(PeerAddr => "$host", PeerPort => "80", Proto => "tcp") or return;
        print $sock "GET $query HTTP/1.0\r\nHost: $host\r\nAccept: */*\r\nUser-Agent: Mozilla/5.0\r\n\r\n";
        my @r = <$sock>;
        $page = "@r";
        close($sock);
    };
    return $page;
}