#!/usr/bin/env perl use strict; use warnings; use CGI qw(:standard); my @scripts = glob '*.pl', print header, start_html('Irssi Scripts'), end_html;