#!/usr/bin/env perl
use strict;
use warnings;
use lib 'auto-lib', 'lib';
use Data::Dumper;
use Data::Printer;
use Paws;
my $result;
my $ec2 = Paws->service('EC2',
  region => 'eu-west-1',
);
$result = $ec2->DescribeSpotPriceHistory;
p $result;
p $_ foreach @{ $result->SpotPriceHistory };