#!/usr/bin/env perl

use SOAP::Lite;

my $smartfire_wsdl = "http://www.getbluesky.org/smartfire/smartfire.wsdl";
my $my_username = "<username>";
my $my_password = "<password>";
my $my_date = "20080501";

my $ws = SOAP::Lite->service($smartfire_wsdl);
my $burns = $ws->getBlueSkyBurnsByDate($my_username, $my_password, $my_date);

die("no burns present") if (scalar(@$burns) == 0);

print "Got array:\n";
foreach $burn (@$burns) {
    print "Got hash:\n";
    foreach $key (keys %{$burn}) {
        print "    $key : ";
        print $burn->{$key};
        print "\n";
    }
}