sub getID {       

my $url = shift;

my $content = get($url); die "No: $url" unless $content;
my $xmlsimple = XML::Simple->new(  );
my $response = $xmlsimple->XMLin($content);

return $response->{Item}->{ID};
}