Name	Size	Mode	Actions
clickable_image.cgi	1434	0755	editdlrm
cookie.cgi	2802	0755	editdlrm
crash.cgi	154	0755	editdlrm
file_upload.cgi	2440	0755	editdlrm
mojo_proxy.pl	801	0644	editdlrm
wikipedia_example.cgi	918	0755	editdlrm
wilogo.gif	458	0644	editdlrm

#!/usr/bin/perl use Mojolicious::Lite; use Mojolicious::Plugin::CGI; my %cgi_scripts = ( '/clickable_image' => "clickable_image.cgi", '/cookie' => "cookie.cgi", '/crash' => "crash.cgi", '/file_upload' => "file_upload.cgi", '/wikipedia_ex' => "wikipedia_example.cgi", ); foreach my $route ( sort keys( %cgi_scripts ) ) { plugin CGI => [ $route => $cgi_scripts{$route} ]; } any '/' => sub { my ( $c ) = @_; $c->stash( { cgi_scripts => { %cgi_scripts } } ); $c->render( 'index' ); }; app->start; __DATA__ @@ index.html.ep

CGI Examples

% for my $route ( sort keys( %{ $cgi_scripts } ) ) { <%= $cgi_scripts->{$route} %>
% }