#!/usr/bin/perl

use Region;
use strict;

my $regions = Region->new();

print join("\n",$regions->regions);

print "\n\n";

print join("\n",$regions->divisions);

print "\n\n";

print join("\n",$regions->divisions('west'));

print "\n\n";

print join("\n",$regions->state( name => 'full' , region => 'west' ) );

print "\n\n";

print join("\n",$regions->state( name => 'full' , division => 'East North Central' ) );

print "\n\n";

print join("\n",$regions->state( name => 'code' , region => 'South' , division => 'South Atlantic' ) );

print "\n\n";