use LWP::UserAgent; 

my $ua = new LWP::UserAgent;
$ua->default_header('X-Requested-With' => 'XMLHttpRequest'); 
my $response = $ua->get('http://site.com');

# delete header 'X-Requested-With

my $response = $ua->get('http://site.com');