#!/usr/local/bin/perl
use warnings;
use strict;
use vars qw(%SETTINGS);

$SETTINGS{name}="bob dobbs";
$SETTINGS{type}="surreal";

1;     # modules need to end with a true value

##</code><code>##

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

print "$_ : '$SETTINGS{$_}'\n" for (keys %SETTINGS);


##</code><code>##

name : 'bob dobbs'
type : 'surreal'