Select Code to Download

#!/usr/bin/perl
use strict;
...
# $var->{'one'}->{'fish'}
# $var->{'two'}->{'fish'}
# etc

my $mime = {
    'Web Page'          => { icon => 'webdoc.png',
...
                             ext  => ['cgi','pm','pl'],
                           },
};