#!/usr/bin/perl require "include.pl"; require "functions.pl"; #create or resume session CGI::Session->name($session_name); my $session = new CGI::Session; my $username = get_username_from_sid($session->id); if($username) { print $session->header(); print '
Upload:

Title:

Beschreibung:

'; } else { print $session->header(); print "nope..."; }