po = { 1, 'two', 'buckle my',
        [ 'Florsheim', 'Nike', 'Sandals', 'Thongs' ],
        'shoo' };

$sub = sub { print "code ref passed to the edge of panic boyeeeee\n" };

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



##</code><code>##

Import qw( po sub ) ;

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

$sub->();


##</code><code>##

$po = {
        'shoo' => undef,
        1 => 'two',
        'buckle my' => [
                         'Florsheim',
                         'Nike',
                         'Sandals',
                         'Thongs'
                       ]
      };
code ref passed to the edge of panic boyeeeee