利用perl发送天气预报

#!/usr/bin/perl


use strict;
use warnings;
use URI;
use Web::Scraper;
use URI::Escape;
use LWP::UserAgent;
use Encode;

my $url = "http://weather.raychou.com/?/detail/57036";
my $worker = scraper {
# process "ul", "weathers[]" => "TEXT";

    process "#weather_detail ul", "weathers[]" => "TEXT";
};
print "Starting...\n";
my $result = $worker->scrape( URI->new($url) );
binmode STDOUT, ":utf8";
my $weather='';
$weather.=$_ for @{ $result->{weathers} } ;
my $ua = LWP::UserAgent->new;
my $res= $ua->post('http://sms.api.bz/fetion.php?username=1358255662&password=1@#2@#$&sendto=1358255662&message='."$weather");