#!/usr/bin/perl
use strict;
use warnings;
require 'Config.pm';

print "Hash: ",%Config::amazon_config,"\n";
print "Host: ",$Config::amazon_config{'host'},"\n";
print "Name: ",$Config::amazon_config{name},"\n";

##</code><code>##

package Config;
my %amazon_config = (
        'name' => 'amazon',
        'host' => 'localhost',
        'user' => 'amazon',
        'pass' => 'somepass',
        'upload_path' => '/',
        'file_types' => [ qw( jpg mobi ) ],
        );
1;

##</code><code>##


Hash: 
Use of uninitialized value in print at Objects.pl line 15.
Host: 
Use of uninitialized value in print at Objects.pl line 16.
Name: