#!/usr/bin/perl -w use strict; use CGI qw/:standard/; my $cgi = new CGI; my $file = $cgi->param('file'); # grab base date $file =~ m/(.*).txt/; my $date = $1; my @images = ; my @audio =