#! /usr/perl/bin use warnings; use strict; use LWP::Simple; my $page_content = get("http://hq.sinajs.cn/list=sh601006"); unless (defined $page_content) { die "doc content is not undef\n"; } print $page_content,"\n";