#!/usr/bin/env perl
use 5.011; # implies strict + feature 'say'
use warnings;

use Data::Dumper;
use Config::Tiny;

use constant {
	INIFILE  => 'example.ini',
	ENCODING => 'encoding(Windows-1252)'
};

sub create {
	my %config = (
		my_sftp =>  {
			domain   =>  'example.com',
			username =>  'myname',
			password =>  'topsecret',
		},
		my_github =>  {
			email    =>  "me\@example.com",
			password =>  "confidential",
		},
	);

	say Dumper \%config;

	my $ini = bless \%config, 'Config::Tiny';
	$ini->write(INIFILE, ENCODING);
	say 'created ', INIFILE;
}

sub show {
	say 'reading ', INIFILE;
	my $ini = Config::Tiny->read(INIFILE, ENCODING);
	my %config = %$ini;
	say Dumper \%config;
}

create() unless -e INIFILE;
show()

##</code><code>##

	my $ini = Config::Tiny->new;
	$ini->{$_} = $config{$_} for keys %config;