# This is a Cons "Construct" file. It exports a scalar
# named po, which is received by the perl program
# tmp/Conscript
$po = { 1, 'two', 'buckle my', 'shoo' };

Export qw (po);
Build  qw (tmp/Conscript);


##</code><code>##

# This is the tmp/Conscript. I receive serialized data and
# process it, in this case, simply printing it to STDERR
Import qw( po ) ;

use Data::Dumper;
warn Data::Dumper->Dump([$po],['po']);

##</code><code>##


$po = {
        1 => 'two',
        'buckle my' => 'shoo'
      };