;
use strict;
use warnings;
use parent qw/Amazon::API/;
use Amazon::Credentials;
use JSON qw/from_json to_json/;
use Scalar::Util qw/reftype/;
use XML::Simple;
use Data::Dumper;
=pod
=head1 NAME
=> 'i-0b91d8e165cf2f41b'}]);
my $result = $ec2->DescribeInstances(Filter => $filter);
print to_json($result, { pretty => 1 });
=cut
sub DescribeInstances {
my $self = shift;
my %args = @_;