use LWP::Simple;
my $resultado = get('http://www.pagina_boba.com/index.html');
open(texto, ">>resultado.txt"); print texto $resultado; close(texto);
#você pode fazer a mesma coisa usando outro modulo como exemplo< br/> #usando IO::Socket...
my $socket = IO::Socket::INET->new(
        PeerAddr => "www.wiki.com",
        PeerPort => "80",
        Timeout => "7",
        Proto => "tcp"
    );
die "Não foi possível criar a socket " unless $socket;
if ($socket) {
    print $socket "GET /index.html HTTP/1.0 ";
    while (<$socket>) {
        print "$_";
    }
}
close($socket);

use LWP::UserAgent;
print "pegando temperatura Brasil by C00L3R ";
print "Qual estado você quer ver a temperatura? ex sao_paulo ";
my $local=<STDIN>; chomp $local;
my $pagina="http://www1.folha.uol.com.br/folha/tempo/br-$local.shtml";
$agent = new LWP::UserAgent;
$request = HTTP::Request->new('GET',$pagina);
$result = $agent->request($request);
@result = $result->content();
open(RES,">","temperatura.txt");
print RES @result; close(RES); open(RES,"<","temperatura.txt");
@texto = <RES>; close(RES); unlink ("temperatura.txt");
foreach (@texto) {
    if ($_ =~ m/^<p><b>Temperatura:</b> (.*?)

/) {
        my $graus="$1";
        print "Local: $local ";
        print "Temperatura: $graus ";
    }
}