get html source

push(@INC, '.');
use LWP::Simple;

BEGIN {
unshift(@INC, "/path/to/folder");
}

use LWP::Simple;

#!/usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;
use HTTP::Response;
use URI::Heuristic;

use strict;

my $raw_url = "http://www.oreilly.com";   # URL of site you want source for
#my $url     = URI::Heuristic::uf_urlstr($raw_url);   # expands partial URLs
                                                      # only needed for urls
                                                      # like 'www.oreilly.com'
                                                      # not needed here

my $ua = LWP::UserAgent->new();   # Creates a virtual browser
$ua->agent("Mozilla/4.0");   # the browser type

my $req = HTTP::Request->new( GET => $raw_url );   # creates GET request but does not send
$req->referer("http://hi.there.com");  # obviously not a real URL - part of the HTTP headers

my $res = $ua->request($req);   # request is sent

my $src = $res->content(); # gets the source and assign to var...normally you'd want to check for
                           # errors with the 'is_error' function like so:
                           # '$res->is_error()'
                           # $res is your response object

print $src, "\n";  # print the source code

push(@INC, '.');
use LWP::Simple;

@data = get('http://www.whatever.com');

print @data;