#!/usr/bin/perl
##
## printenv -- demo CGI program which just prints its environment
##
use CGI;
use Fcntl qw(:DEFAULT :flock);
use File::Temp qw/ tempfile tempdir /;
use CGI::Carp qw/fatalsToBrowser/;
print "Content-type: text/html; charset=iso-8859-1\n\n";
print qq _
Mega File Hosting Script
CGI-BIN Requirement Detecting
_;
for('LWP', 'CGI','Fcntl','File::Temp')
{
eval "require $_";
if($@)
{
print "\nThe $_ module is required, but could not be found! ";
}
else
{
print "\nThe $_ module".($_ eq 'CGI'?'(v'.$CGI::VERSION.')':'')." is installed! ";
}
}
print qq _