#!/usr/bin/perl
use strict;
use warnings;

use Data::Dumper;
use Net::Amazon::EC2;
use MIME::Base64;
my $ec2 = Net::Amazon::EC2->new(
                AWSAccessKeyId => 'not-telling',
               SecretAccessKey => 'not-telling-this-either' );

my $custom_ami_id = 'ami-ff46a796';
my $user_data = encode_base64('/home/hesco/sandbox/EC2/trick_out_my_server.sh');

if($create_new_instance){
  my $instance = $ec2->run_instances(
     'Placement.AvailabilityZone' => 'us-east-1a',
                          KeyName => 'aws_test',
                    SecurityGroup => 'asterisk',
                          ImageId => $custom_ami_id,
                         UserData => $user_data,
                         MinCount => 1,
                         MaxCount => 1 );

  print STDERR Dumper($instance);
}