#!/usr/bin/perl use strict; use Cwd; use CGI qw(:standard); use CGI::Carp qw(warningsToBrowser fatalsToBrowser); local $SIG{ALRM} = sub { die "timeout\n" }; alarm(300); my $dir = param('dir'); if (!$dir) { print "Content-type: text/plain\r\n\r\n"; open SCRIPT, $ENV{SCRIPT_FILENAME}; print