#!/usr/bin/perl
use strict;
use warnings;
use Digest::HMAC_SHA1;
use LWP::UserAgent;
use POSIX qw(strftime);

# Define our Access Key Id, and Secret Access Key.
use constant ACCESS_KEY_ID => 'xxxxxxxxxxxxxxxxxxxx';
use constant SECRET_ACCESS_KEY => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';

# Generate the HMAC signature.
my $date=strftime '%a, %d %b %Y %H:%M:%S GMT', gmtime;
my $request='/'.ACCESS_KEY_ID.'/status';
my $hmac=Digest::HMAC_SHA1->new(SECRET_ACCESS_KEY);
$hmac->add("GET\n".ACCESS_KEY_ID."\n$date\n$request");
my $signature=$hmac->b64digest;
while (length($signature)%4) { $signature.='='; }

# Request the status from PDF Alchemy.
my @headers=('Date'=>$date,'X-PDF-Alchemy-Signature'=>$signature);
my $browser=LWP::UserAgent->new;
my $response=$browser->get("http://www.pdfalchemy.com$request",@headers);
print $response->content."\n";