use LWP::Simple;

my $url = 'http://www.nasdaq.com/earnings/earnings-calendar.aspx?date=2014-Oct-02';

my $html = LWP::UserAgent->new;

my $response = $html->get($url);

if ($response->is_success) {
  print "$response->content\n";
} else {
  warn("Can't get $url -- " . $response->status_line);
}

##</code><code>##

my $uncomp_content;
gunzip \$response->content => \$uncomp_content;