Perl eksekusi

#!/usr/bin/perl
use IO::Socket;

req_rss('http://rss.vivanews.com/get/all');

sub req_rss(){
    my $urlrss = $_[0];
    my $data = query($urlrss);
    $data =~ s/\n//g;
    my @item = split(/\<item\>/,$data);
    shift(@item);
    my $dat = shift(@item);
    $dat =~ s/\<guid.*?\<\/guid\>//g;
    $dat =~ s/\<category\>.*?\<\/category\>//g;
    $dat =~ s/\<\/item>//g;
    $dat =~ s/\<\/channel\>\<\/rss\>//g;
    if($dat =~ /\.*?\<link\>(.*?)\<\/link\>.*/){
        $ret = $1;
        $ret =~ s/http:\/\///;
        $ret =~ s/\,//;
        $ret =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
    }
    if($dat =~ /.*?\<enclosure\ url=\"(.*?)\"\ length=.*/){
        $img = $1;
        $img =~ s/http:\/\///;
        $img =~ s/\,//;
        $img =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;
    }
    my $links = query("http://DOMAIN-ANDA.com/FOLDERBERITA/koran.php?img=$img&link=$ret");
}

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;
}