#!/usr/bin/perl
# test.pl

use strict;
use warnings;

my %cfg;

unless(do '1.spec'){
    warn "can not parse :$@";
    warn "can not do: $!";
    warn "could not run";
}

my @keys = keys %cfg;
my @values = values %cfg;

while(@keys){
    print pop(@keys),'=',pop(@values),"\n";
}


##</code><code>##

$cfg{name} = 'philip';
$cfg{age} = '21';