Select Code to Download

    sub demonstration {
        return {
            demonstration_data => { demo_data => shift },
        };
    }

    sub demonstration {
        my $demonstration_data = { demo_data => shift };
...
                                        'demo_data' => 'foo'
                                      }
            };

    sub foo {
        my $foo = shift;
...

    __END__
    Long output, run it yourself.