Help for this page
use LWP::Simple qw( get ); my $data = get($url); open(IN, '<', \$data); while (<IN>) { ...