#!C:\Perl\bin\perl

use LWP::UserAgent;
use strict;
use Data::Dumper;
use Date::Simple qw/ date today /;
use XML::SImple;
use Compress::Zlib;

local $SIG{__WARN__} = sub { };

my $ua = LWP::UserAgent->new;
$ua->agent(
"Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 (FM Scene 4.6.1)"
);


my $xs = XML::Simple->new();


my $url = "http://concerts.livenation.com/app/availability/04004B76DB4C779A";


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


if ( $response->is_success ) {
    print $response->decoded_content;
     my $ref =
      $xs->XMLin( $response->decoded_content );
      
       #open FILE, ">f.gz";
       #                 binmode(FILE);
        #                print FILE $ref->{ev_comp};    # or whatever
        #                close FILE;
        print  Compress::Zlib::memGunzip($ref->{ev_comp});
  
}
else {
    #die $response->status_line;
    print "\t[FAILURE]\n";
}