Select Code to Download

sub make_list {
  my %opt  = @_;
...

  return \%list;
}

print DDumper make_list( file => $Artifacts, headings => ['+'] );

...
        'The Librarians, And the Final Curtain'
        ]
    }

print DDumper make_list( file => $programs );

...
    VideoLAN         => 'www.videolan.org',
    grepWin          => 'tools.tortoisesvn.net/grepWin.html',
    }

print DDumper make_list_2( file => $BBSs, headings => [qw(name domain 
+ip site)] );

...
        site             => undef
        },
    }