Using perl Syntax Highlighting
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
use HTTP::Request;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
my $url = "http://baboonsoftware.com/";
my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
my $content = $response->content();
print "Content-type: text/html\n\n";
print $content;
use strict;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
use HTTP::Request;
my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
my $url = "http://baboonsoftware.com/";
my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
my $content = $response->content();
print "Content-type: text/html\n\n";
print $content;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
y me preguntaba si hay alguna forma de leer solo el título de la web u otras cosas.
