#!/usr/bin/perl -w
use strict;
use warnings;
use LWP::Simple;

my $initial_url = 'http://www.sciencedirect.com/science/search';

my $result = get($initial_url);