Select Code to Download

use strict;
use Data::DumpXML qw(dump_xml);
...
      hash   => { bar => { baz => 'qux'}},
   }, shift;
}

package main;
my $no = Bar->new();
...
package Bar;
sub new { bless {},shift }
sub do  { print "cool\n" }