Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
my $d=Data::Dumper->new([$uo],['UberObject']);
$d->Indent(1);
print $d->Dump();
  2. or download this
    begin_section
     name=section1
...
          link=item_link22
     end_item
end_section
  3. or download this
    "The correct thing" (Exercise left to reader)