帮忙看看perl脚本错误的地方

#!/usr/bin/perl
use LWP::Simple qw(get);

$make_proxy_wsdl="www.sina.com:80";
$product_proxy_wsdl="www.sohu.com:80";
$kill_proxy_wsdl="www.baidu.com:80";

@all_wsdl=($make_proxy_wsdl,$product_proxy_wsdl,$kill_proxy_wsdl);

foreach $one_url(@all_wsdl){
    print "$one_url\n";
    $content = get($one_url);
    print "$content\n";
}