#!/usr/bin/perl -w use CGI qw/:standard/; use CGI::Carp qw/fatalsToBrowser warningsToBrowser/; use CGI::Session ( '-ip_match' ); my $session = CGI::Session->load(); #my $sid = $cgi->cookie("CGISESSID") || undef; #my $session = new CGI::Session(undef, $sid, {Directory=>'/tmp'}); if($session->is_empty){ print redirect('index.cgi'); } elsif($session->is_expired){ print redirect('index.cgi?status=expired'); } else{ print "Content-type: text/html\n\n"; print < NTU Earth Observatory Station

File to Upload:

EOD }